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GEOS Archief 


GEOS Info 13 

Een nieuwe rubriek voor alle GEOS ge¬ 
bruikers, waarin onze medewerkers han¬ 
dige tips, vragen en ideeën zullen behan¬ 
delen. 

GeoPublish 15 

Het nieuwe Desktop Publishing program¬ 
ma voor het GEOS operating system 
wordt uitvoerig besproken. 

GeoFont 20 

Zelf ontwerpen van fonts is voor iedere 
computergebruiker een uitdaging. Peter 
Boncz bekeek voor ons de mogelijkheden 
met GeoFont. 


Leerprogramma’s 26 

Bob Munniksma is aan het eind gekomen 
van zijn serie leerprogramma’s voor het 
onderwijs. Ditmaal de laatste informatie, 
en nog een staartje van de vorige keer. 


Listings C 16 en C 64 29 

Checksum C 16 & C 64 

Cset Designer 

Diskredder 

Penalty 

Ufo C 16 

Pearldiver C 16P 


Triple 128 _ 

Software nieuws 45 

Het laatste nieuws over games en andere 
programma's voor de C 128. 

Vragen van gebruikers 46 

Ook Triple 128 start met een vragenru- 
briek, om alle C 128-gebruikers uit de 
brand te helpen. 

RS 232 Interface 49 

Ditmaal bespreken Johan & Johan hoe je 
zelf een RS 232 interface voor de C 128 
kunt bouwen, en een null modem kabel. 

Karakterset 51 

Het zelf definiëren van een karakterset 
voor de 80 CLS mode is niet eenvoudig. 


Maar het uiteindelijke resultaat geeft veel 
voldoening. 

Listing C 128 56 

l.v.m. een fout in het vorige nummer, nog- 
maals Spring-in-’t-veld en Archery _ 

Basic cursus _^ 

De Basis Basic cursus van Jan Bodzinga 
zit er bijna op. Na 22 afleveringen zal hij 
nog eenmaal de belangrijkste begrippen 
een rijtje zetten. Ditmaal het begin van 
‘Basic van A tot Z’. 


Amigg hoek _ 

Amiga Introductie 66 

Zoals ook voor de GEOS- en 128-gebrui¬ 
kers start er ook een Amiga-rubriek, waa¬ 
rin naast tips en trucs ook boeken zullen 
worden besproken. 

Amigo nieuws 67 

Van computermagazine op floppy tot de 
spectaculairste games, in het nieuwsover¬ 
zicht alle ‘heet-van-de-naald’ informatie. 

Beginnen op de Amiga 71 

Een degelijke introductiecursus voor de 
nieuwkomers op de Amiga-machines, 
maar ook voor de geroutineerde gebrui¬ 
ker, die niet alles kan onthouden. 

AmigaDOS 75 

U kunt een boek besparen, en zeer veel uit 
uw computer halen, als u vanaf dit num¬ 
mer deze nieuwe cursus volgt over alle 
commando’s, die zoal op een Amiga te 
vinden zijn. 

Amiga boeken 78 

Twee pagina’s met boekennieuws voor de 
Amiga. 

Listing Amiga 80 

Het programma Newlnput, waarmee u uw 
inputroutine sterk kunt verbeteren. 


Omslag foto: Gou ld Electronic 

Vaste rubrieken: 

Commodore Nieuws 6 

Strip 11 

Basic Basic (22) 60 


Redaktioneel _ 

Onze vaste lezers van Commodore Info zullen wel wat verbaasd zijn, ais ze 
het blad doorbladeren. Want er is wel wat veranderd in de vormgeving. Ter¬ 
wijl den meeste mensen op het strand lagen, hebben wij geprobeerd de vorm¬ 
geving van ons blad wat te ‘updaten’. Dat was nodig, omdat er naast veel 16 
en 64 gebruikers ook een grote schare 128 en Amiga aanhangers is, die in 
hun lijfblad natuurlijk ook aan hun trekken willen komen. Wij hopen, dat deze 
nieuwe vorm de lezers nog meer leesplezier geeft, en dat de vakantiestem- 
ming door dit nummer nog wat zal blijven hangen. 

En mocht u helaas wat zijn weggespoeld op de camping, dan kunt u altijd bin¬ 
nenkort nog een heerlijk uitje gaan maken naar de Firato, die dit jaar haar ten¬ 
ten weer zal opslaan in de RAI (26 aug. - 4 sep.) We hoeven onze lezers niet 
meer te vertellen, dat er ook dit jaar weer veel computernieuws zal komen. 
Vooral de koppeling met videosystemen zal een populair item worden, als we 
de berichten mogen geloven. 

De redaktie 
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Datasoft Adventures 

Het Amerikaanse softwarehuis Data¬ 
soft maakt al jaren allerlei software, 
meest spelletjes en eenvoudige pro- 
ductivity pakketjes. Sinds enige tijd is 
Electronic Arts de distributeur van de 
Datasoft reeks. Dat betekent, dat ook 
in ons land vla bijvoorbeeld Computer 
Collectief dergelijke software is aan te 
schaffen. 

Datasoft heeft een aantal nieuwe stra¬ 
tegische adventures uitgebracht. On¬ 
der die noemer vallen de spelletjes, 
die naast wat actie ook strategisch in¬ 
zicht vragen en een planning- en ac- 
tiefase kennen. Het gaat daarmee 
verder dan de klassieke Adventure, 
dat is eigenlijk niet meer dan een soort 
doolhofspel met een aantal basis¬ 
trucs, zoals het meenemen van be¬ 
paalde voorwerpen en het stellen van 
de juiste vragen. Voor strategische 
adventures kiest men meestal een 
ruimte-scenario of er wordt een histo¬ 
rische veldslag nagebootst. Daarmee 
wordt dan een meestal matig gecom¬ 
pliceerde omgeving gemaakt, waarin 
men als ware het een ‘computer’- 
boek, op avontuur kan gaan. 

Het spel De Rubicon Alllance Is gesi¬ 
tueerd in de toekomst van de interpla¬ 
netaire ruimtevaart. De Rubicon Alll¬ 


ance Is een verbond tussen de acht 
planeten van het Hyturian sterrestel- 
sel. Die alliantie verzekert de vrede 
maar is ook de beheerder van een 
anti-materie krachtveld, dat The Ru¬ 
bicon’ heet. 

Winst Commodore Int. 

Commodore International heeft In de 
eerste negen maanden van het fisca¬ 
le jaar 1987/888 een winst van 43 mil¬ 
joen dollar gerealiseerd. Dit betekent 
een verbetering van de resultaten ten 
opzichte van het vorige jaar, die met 
name veroorzaakt wordt door een ver¬ 
dere stijging van de verkopen van de 
Amiga. De Amiga mmaakt op het mo¬ 
ment wereldwijd 45 % van de totale 
omzet van Commodore uit. In de pe¬ 
riode van het jaar ervoor was dat nog 
slechts 13 %. Er zijn op dit moment al 
meer dan een half miljoen Amiga’s 
verkocht in de wereld. 

Bard’s Tale III: Thief of 
Fate 

Het derde deel In de serie fanatasie- 
spelletjes gebaseerd op het de mid¬ 
deleeuwen is uit. Na het tweede deel 
The Destiny Knight Is dit nog sneller 


en biedt meer magische mogelijkhe¬ 
den. In deel drie moet je op zoek naar 
de tovenaar Tarjan, die aan het eind 
van deel twee de stad Skara Brae 
heeft vernietigd. De hoofdpersoon 
kan opgebouwd worden uit een mix 
van zowel mannelijke als vrouwelijke 
karakter(trekje)s die ertoe moeten lei¬ 
den dat de persoonlijkheid sterk ge¬ 
noeg is om de tovenaar te verslaan. 

Fontmaster II 




The Bard’s Tale III 


Zowel voor de 64 als de 128 Is er een 
nieuwe versie van Fontmaster, de 
tekstverwerkers met uitgebreide print¬ 
en lettertype mogelijkheden. Font¬ 
master II Is de 64/128 uitvoering die 
30 kant-en-klare lettertypes bevat, 
een lettertype-maker en een back-up 
diskette. De tekstverwerker heeft de 
mogelijkheid om andere talen ook het 
scherm te tonen, diverse functies als 
onderstrepen zijn op het scherm zicht¬ 
baar en voor text-bewerking zijn meer 
dan 65 commando’s beschikbaar. 
Fontmaster 128 bevat daarnaast nog 
een spellingcontrole, een diskette 
voor vreemde talen, 45 kant-en-klare 
lettertypes en ultgebrelde printerbe- 
sturlng. 

Football Manager II 

Als vervolg op het - vooral in Engeland 
I populaire - Football Manager, heeft 
Prism Leisure nu nummer 2 uitge- 
bracht. De graphics zijn sterk verbe¬ 
terd, terwijl er ook een aantal extra 
features zijn toegevoegd. Je kunt nu 
je eigen (Engelse) team samenstel¬ 
len, trainingfaciliteiten gebruiken om 


6 


Commodore Info 5/88 



















Commodore Nieuws 


het nivo van het team te verhogen, en 
een replay-mogelijkheid laat je de 
laatste actie nog eens rustig herhalen. 
Voor alle spelers met een snelle joy¬ 
stick en matig voetenwerk een kans 
voor open doel. 

Het spel is verkrijgbaar voor C 64,128 
en Amiga’s. Voor PC en Amstrad be¬ 
staat er eveneens een versie. 

Dream Warrior 

Als de Dream Warrior in het gelijkna¬ 
mige spel van US Gold bent u de vier¬ 
de ‘Asman’. Het spel valt onder de 
noemer ‘psychologische oorlogsvoe¬ 
ring’ waarin strategisch inzicht, moei¬ 
lijke speluitvoering en snelle actie 
hand in had gaan. Het spel is gesitu¬ 
eerd in in verre toekomst van een on¬ 
bekend universum, waarin oorlogen 


slechts in dromen worden uitgevoch¬ 
ten, maar dan wel in nachtmeries. De 
macht is niet langer in handen van re¬ 
geringen maar van gigantische onder¬ 
nemingen, en deze ondernemingen 
worden weer gecontroleerd door Fo¬ 
cus.Als geleerde op het gebied van 



Lt. Keiiial Hard Disk Drive 


Astrale kennis moet je proberen colle¬ 
ga’s te bevrijden uit de psychologi¬ 
sche gevangeschap van Focus, om 
uiteindelijk Focus te kunnen vernieti¬ 
gen. 

Dream Warrior is er voor de C-64 en 
IBM PC. 

Lt. Kernal C-64 harddisk 

Een harddisk voor de C-64 en 128 
waarvoor helaas nog geen leveran¬ 
cier in Nederland bekend is. Daardoor 
weten we slechts een klein aantal ge¬ 
gevens van deze drive. De Lt. Kernal 
is een 20 MB harddisk in eigen behui¬ 
zing, met ingebouwde CP/M com¬ 
mando’s. Er kunnen tot tien logische 
drives worden gespecificeerd op de 
harddisk, terwijl er tevens backup en 
restore faciliteiten in zitten. 


FlightSimulator West Europa Tour 


Voor de "piloten" onder ons die wel eens een vlucht 
maken met een flightsimulator is er goed nieuws. 
Sinds kort is de "West Europe Tour" diskette van Su- 
bLogic in de handel verkrijgbaar. Voor deze scenery- 
disk is het echter wel noodzakelijk dat je over het pro¬ 
gramma Flight Simulator II beschikt. 

Met deze simulator vliegt de "piloot" in een Piper Archer 
II, een eenmotorig vliegtuigje, van het ene naar het ande¬ 
re vliegveld. Tot nu toe waren, naast de meegeleverde 
gebieden, slechts een paar andere Amerikaanse scene- 
ry-diskettes verkrijgbaar. Met de komst van de West Eu¬ 
rope Tour disk kun je nu ook een vlucht maken in een voor 
ons enigszins bekendere omgeving. De scenery-disk 
wordt geladen via de "editor" van het flight simulator pro¬ 
gramma. Hiermee kunnen de coördinaten worden opge¬ 
geven, die corresponderen met de vele op diskette mee¬ 
geleverde vliegvelden. Ook de natuurverschijnselen kun¬ 
nen in deze editor worden opgegeven, zoals windsnel¬ 
heid, de tijd, de jaargetijden, etc. Deze factoren hebben 
een duidelijk effect op de prestaties van het vliegen op 
zich. De gebieden welke beschikbaar zijn op de West Eu¬ 
ropa Tour zijn Zuid-Engeland, Noord-Frankrijk en Zuid 
Duitsland. Deze gebieden worden op de meegeieverde 
kaarten uitvoerig getoond. Op deze kaarten zijn diverse 
viuchtgegevens vermeld, zoals vlieghoogtes, koersen, 
noodzakelijke communicatiegegevens en de contouren 
van de belangrijkste vliegvelden. Het vliegen op zich is 
gelijk aan de vluchten die met het basisprogramma kun¬ 
nen worden gemaakt. Er is echter een verschil. Met een 
scenery-disk kan je geen brandstof laden. De brandstof¬ 
tanks worden automatisch bijgevuld op het moment dat 
men de editor verlaat. Vele vliegvelden en een paar ver¬ 
rassingen kun je terugvinden in de gebieden, waar je 
overheen vliegt. De Europa Tour diskette munt uit door 
z’n gedetailleerde weergave van objecten in een gebied. 
Ook deze keer is bij het ontwikkelen van deze aanvulling 
gebruik gemaakt van documentatie die door echte vlie¬ 
gers wordt gebruikt tijdens het navigeren. Gedetailleerde 
vliegvelden in Zuid-Engeland zijn Bournemouth Cardiff, 
Heathrow, Luton en Norwich. Zeker de moeite waard is 
het vliegen over London, waarbij zeer natuurgetrouw en¬ 



kele bezienswaardigheden worden getoond. Zo kun je 
mits je niet te hoog of te laag vliegt de Westminster Ab- 
bey, de Tower Bridge, Buckingham Pallace, enz. aan¬ 
schouwen. Wanneer je langs de kust van Engeland vliegt 
krijg je vanzelf de vuurtorens in zicht. Enkele franse ob¬ 
jecten, die het bekijken waard zijn vanuit de cockpit, zijn 
de Are de Triomph, de Eiffeltoren, de Notre Dame en nog 
veel meer. Ook het Zuid-Duitse gebied heeft fraaie objec¬ 
ten te tonen. Maar dit is nog niet alles. Je kunt ook een 
heidenstaaltje uithalen en proberen te landen op het 
Rode Plein in Moskou, zonder daarna opgepakt te wor¬ 
den. Of wat dacht je van een rondje Nurnberg-Helsinki. 
De Europa Tour diskette is zeker de moeite waard. Er is 
veel zorg en aandacht aan besteed om een zo realisti¬ 
sche mogelijke simulatie te maken. Zeker voor diegenen, 
die op de reeds bestaande scenery-disks zijn uitgekeken, 
is de West Europe Tour een welkome afwisseling. Het 
pakket wordt geleverd met een diskette, 4 viuchtkaarten 
en aanvullingsbladen betreffende specifieke instructies. 
De prijs bedraagt ƒ 59,00 en het is verkrijgbaar bij Com¬ 
puter Collectief te Amsterdam. SubLogie’s scenery-disk 
West Europa Tour is, naast de Commodore 64 en 128, te¬ 
vens verkrijgbaar voor de Amiga, IBM PC en Atari ST. 
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GEOS Archief 


Onder de titel GEOS Info zullen Bert Venema en Peter Boncz een vaste GEOS rubriek 
gaan verzorgen. Het is de bedoeling dat ook lezers met tips en trucs terecht kunnen in 
deze rubriek, dus schrijf gerust met al uw vragen en opmerkingen. 


GEOS Info 



Directory in GEOS 

Het is soms irritant, dat de compie- 
te directory van een GEOS-disk niet 
te zien is vanuit BASIC. Files die na¬ 
melijk in de border gezet zijn, wor¬ 
den uit de directory gehaald en in 
een speciale sector op de disk ge¬ 
zet. 

Met behulp van BASIC krijg je dus 
geen goed beeld van de inhoud op 
een disk. De hierbij geplaatste listing 
kan daarbij misschien helpen. Het 
programma leest in de eerste sector 
van de directory (track 18 sector 0) de 
bytes 171 en 172. Hierin staan de 
track en sector van de plaats waar de 
border-files zich bevinden. 

Deze plaats bestaat uit 1 sector en 
heeft het format van een gewone di- 
rectory-pagina. Dus in byte 2 van die 
sector staat een soort file. In byte 5 tot 
20 staat de naam en in byte 30 en 31 
staat de grootte van het file. Dit repe¬ 
teert om de 32 bytes, en omdat een 
sector 256 bytes heeft, kunnen er dus 
maximaal 8 files tegelijkertijd in de 
border staan. Het programma print 
alle namen, grootte en types van 
eventuele aanwezige betanden. 

programmalisting: 

10 open 15,8,15:open 5,8,5,"#" 

11 prinf'O [RVS ONjFiles in kader [14 
SPATIES][RVS OFF]" 

12 print#15,"b-r";5;0;18;0 

13 print#15,"b-p";5;171; 

14 gosub 28:tr=by:gosub28:ts=by 

15 print#15,"b-r";5;0;tr;ts 

16 for a=0 to 
7:print#15,"b-p";5;2+a*32; 

17 gosub28:s=by:ifs=0then27 

18 print#15,"b-p";5;30+a*32; 

19 gosub 28:lb=by:gosub28:hb=by 

20 t=t+lb+hb*256:print(lb+hb*256) 

21 print#15,"b-p";5 ;5+a*32:forb=0to15 

22 gosub 28:if by=Ó then b=15:goto 26 

23 j3rintchr$(by);:next biprint, 

24 id$="prg":if s and 1=1 then 
id$="USR" 

25 printid$:if s and 128=128 then 
print 

26 print:next aiciose 5,8,5;close 
15,8,15 

27 print" blocks in use: ";t:end 

28 get#5,a$ :by=asc(a$+chr$(0)) :retu rn 


GEOS Versie 1.3 

GEOS versie 1.3, die nu al enige 
maanden in Nederland te koop Is, 
verschilt vrij sterk van zijn voor¬ 
ganger 1.2, vooral op het gebied 
van de kopieerbeveiliging. 

Wanneer toch wordt geprobeerd een 
GEOS diskette te kraken, resulteert 
dit vaak in de volgende problemen: 

° GEOS wil geen bewerkingen meer 
uitvoeren op BOOT-files (GEOS, 
GEOS Kernai, GEOS boot) 

° Wanneer geprobeerd wordt om bij¬ 
voorbeeld een file in de eerste pagi¬ 
na van de directory te plaatsen, dan 
worden alle BOOT-files gewist! 

° Iedere GEOS-diskette heeft zijn ei¬ 
gen ID nummer (identificatie). Deze 
code staat verstopt en is van cruci¬ 
aal belang bij het gebruik van alle 
GEOS applicaties, zoals GeoDEX, 
GeoFILE en Writers Workshop. 
Deze applicaties worden namelijk 
bij het eerste gebruik geïnitialiseerd 
met de ID van de gebruikte GEOS 
startdisk. In het vervolg zullen ze 
dan alleen werken als er met die 
startdisk is opgestart. 

Deze maatregelen zijn erg fors, maar 
de krakers zullen al wel een antwoord 
hebben gevonden. Kraken en beveili¬ 
gen is tenslotte een kat-en-muis-spel- 
letje. Maar wie wordt de dupe? De ar¬ 
geloze koper, die de gebruikers¬ 
vriendlijkheid van GEOS aanzienlijk 
ziet teruglopen! 

Problemen met GEOS 

Naar aanleiding van de grote GEOS 
aktie tijdens de Computer Info 
Beurs hebben we enige reacties 
ontvangen betreffende problemen 
met GEOS programma-diskettes. 
Eén van de meest voorkomende pro¬ 
blemen is het laden van de BOOT 
disk. Al gauw wordt dan door de gedu¬ 
peerde gesuggereerd dat er niks op 
de disk zou staan of dat de inhoud in¬ 
compleet is. Echter bij nader onder¬ 
zoek blijkt al gauw dat het voorkomen¬ 
de ongemak is te wijten aan een niet 


goed afgestelde lees/schrijfkop van 
de diskdrive. Vooral de wat oudere 
1541 drives leveren, na langdurig ge¬ 
bruik (zonder regelmatig onderhoud) 
lees- en schrijfproblemen op. Een an¬ 
der euvel dat kan ontstaan is het on¬ 
georganiseerd raken van de disk. 
Wanneer een disk door dit probleem 
niet meer wil inlezen, doet men er 
goed aan de disk d.m.v. het GEOS va- 
lidate-commando te laten reorganise¬ 
ren. Gebruik echter nooit het DOS va- 
lidate commando, daar de disk dan in¬ 
derdaad niet meer werkt. Het resultaat 
van het valideren is een disk, waarop 
alle ruimte weer beschikbaar is. 

GEOS onderscheiden 
met Software Award 

Berkeley Softworks ontving laatst de 
onderscheiding "Best Technical 
Achievement" voor hun revolutionaire 
disk operating system, GEOS 1.2. De 
onderscheiding werd toegekend door 
de Software Publishers Association 
(SPA). De SPA kan worden vergele¬ 
ken met de "Academy Awards" op het 
gebied van de software industrie. 

OPROEP!!! 

Zoals u reeds heeft gemerkt, zijn we 
wederom gestart met een GEOS ru¬ 
briek. We hopen echter, nu de opmars 
van GEOS in Nederland goed op 
gang komt, dat deze rubriek elke keer 
in Commodore Info kan terugkomen. 
Hierbij hebben we uw steun nodig. 
Het ligt in de bedoeling om in deze ru¬ 
briek allerlei zaken betreffende GEOS 
aan de orde te stellen. We denken 
hierbij aan probleembehandeling, het 
geven van tips, publicatie van listings 
e.d. Dus als u iets te melden of te vra¬ 
gen heeft schrijf dan naar onder¬ 
staand adres. 

Bert Venema en Peter Boncz 


Voor al uw reakties: 
GEOS INFO rubriek 
Postbus 43048, 

1009 ZA Amsterdam 
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GEOS Archief 


Tegenwoordig wordt bijna geen enkel tijdschrift, krant of ander medium meer vervaar¬ 
digd zonder tussenkomst van een computer. Steeds vaker wordt hierbij gebruik ge¬ 
maakt van een DeskTop Publishing programma. Sinds kort is er voor de Commodore 
64 en het GEOS besturingssysteem een DTP-pakket op dé markt, GeoPUBLISH. 


PERSVRIJHEID 
op de Commodorel 


Toen Berkeley Softworks begin 
ll86 het grafische besturingssys¬ 
teem GEOS op de markt bracht, wist 
men nog niet wat voor een uitbundig 
succes dit zou worden. De mogeiijk- 
heden die door dit nieuwe grafische 
besturingssysteem ontstonden, 
grenzen aan het onwaarschijniijke. Ai 
gauw voigden enkeie nuttige en zeer 
geavanceerde appiicaties, die het 
werken met GEOS tot een prettige be¬ 
zigheid maken. Maar voor het ver¬ 
vaardigen van kranten, nieuwsbrie¬ 
ven, foiders en andere grafische 
hoogstandjes op de Commodore 64, 
was men nog steeds aangewezen op 
pakketten ais Printshop, Printmaster 
en Newsroom. 


Terwijl de Commodore-bezitters in 
Nederland nog met een programma 
als Newsroom zaten te zweten, waren 
de programmeurs van Berkeley Soft¬ 
works druk in de weer om hun primeur 
op DeskTop Publishing gebied in el¬ 
kaar te sleutelen. Halverwege 1987 
was het dan zover, het eerste DTP- 
programma voor de Commodore 64 
werd geïntroduceerd GeoPUBLISH 
was een feit. De techniek van DTP 
werd al enige tijd in de PC-wereld ge¬ 
bruikt om tijdschriften, kranten, bro¬ 
chures, etc. een professioneel uiterlijk 
te geven. Het eerste echte DTP pak¬ 
ket voor de microcomputer is het nu 
nog zeer populaire programma Page¬ 
maker, welke oorspronkelijk alleen op 
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Graphics Grabber utt ic futuk tot 

levcB komoB. 


Op de OESKPACK I diskette, yelke Berketer 
Softvorks ongeveer eet jur geleden op de markt 
bractit, stut oaaot een aantal nuttige en leuke 
atilitieo de applicatie GRAPHICS GRABBER. Met 
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de Apple Macintosh draaide. Tegen¬ 
woordig zijn er voor die markt zeer 
veel verschillende pakketten op de 
markt waarbij Ventura Publisher en 
Pagemaker wel de bekendste zijn. 
Het voordeel van DTP is dat men met 
behulp van de computer, een zgn. 
"ready to use" ontwerp samenstelt, 
compleet met logo’s, tekeningen, gra- 
phics en tekst. De tekst kan natuurlijk 
in een of meer kolommen worden 
weergegeven voorzien van een fraai 
lettertype. 

Wat is DeskTop Publishing? 

Onder DTP (DeskTop Publishing) 
wordt verstaan: het met behulp van 
een computer vervaardigen van kran¬ 
ten, bladen of boeken. Een andere be¬ 
nadering van het begrip DTP is het 


prepareren van informatie, bestaande 
uit tekst en graphics (tekeningen), 
voor afdrukken op papier. 

WYSIWYG 

De term DeskTop duidt in dit geval op 
het feit, dat deze werkzaamheden 
vanuit de bureaustoel kunnen worden 
gedaan. Het hele concept van DTP 
berust op het zgn. WYSIWYG-princi- 
pe, hetgeen betekent "What You See 
Is What You Get". Met andere woor¬ 
den; u kunt het resultaat van uw werk 
steeds op het beeldscherm volgen. 
Hierbij geldt dus dat hetgeen op het 
scherm verschijnt, naderhand precies 
zo door de printer wordt afgedrukt. 

Je kunt DTP ook omschrijven als een 
elektronische werktafel, waarop een 
"moederblad" wordt gemaakt, met be- 
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staande tekeningen en teksten. Het 
vervangt in feite het vel papier, de line- 
aal, een potlood, lijm en schaar. DTP 
gaat echter verder dan dat. Een DTP- 
programma bezit meer technische 
hoogstandjes, zoals het in één keer 
aanpassen van kopteksten in een an¬ 
der lettertype of het vergroten of ver¬ 
kleinen van graphics. Op die manier is 
de gebruiker in staat zeer professio¬ 
nele publikaties m.b.v. een computer 
te verzorgen. Maar de positieve kan¬ 
ten van DTP houden hier nog niet op, 
want een gemiddeld DTP pakket is 
veel goedkoper dan de traditionele 
methodes van publiceren. Niet alleen 
de aanschaf is lager, maar ook de pro- 
duktiekosten zijn gunstiger. Alhoewel 
dit laatste argument niet relevant is, 
aangezien het overgrote deel van de 
gebruikers van GeoPUBLISH zich in 
het hobby-circuit bevindt. 
Desalniettemin, met een DeskTop Pu- 
blishing programma wordt het plan¬ 
nen van een of meer pagina’s een 
stuk eenvoudiger. Dit komt vooral om¬ 
dat een DTP-pakket zeer flexibel is in 
het gebruik. Bij de traditionele manier 
van publiceren rijst altijd de vraag of 
het geschreven artikel in combinatie 
met plaatjes wel binnen de beschikba¬ 
re ruimte past. Wanneer dit niet het 
geval is, resulteert dit vaak in het op¬ 
nieuw typen van de tekst. Bij DTP is 
dit een stuk eenvoudiger, omdat er 
veel mogelijkheden zijn om de tekst 
aan de beschikbare ruimte aan te pas¬ 
sen. GeoPUBLISH beschikt daarvoor 
over een ingebouwde "editor". Dit is 
een afgeslankte versie van GeoWRI- 
TE V2.1. 

Photo Scrap 

Daarnaast biedt GeoPUBLISH veel 
technieken; zoals het verplaatsen van 
blokken tekst en het wijzigen van let¬ 
tertypen en hun grootte. Het gebruik 
van graphics (plaatjes) wordt in Geo¬ 
PUBLISH helemaal kinderspel, omdat 
men ze op eenvoudige wijze met be¬ 
hulp van een "Photo Scrap" binnen¬ 
haalt en op de gewenste plaats in de 
pagina inpast. Naast deze mogelijk¬ 
heden biedt het pakket nog meer gra¬ 
fische handigheidjes. Met behulp van 
een muis of joystick kunnen diverse 
tekentechnieken worden geseiec- 
teerd en toegepast. Men kan hierbij 
kiezen uit vierkanten, veelhoeken, cir¬ 
kels en lijnen, welke men dan kan vul¬ 
len met verschillende vulpatronen. 
Verder kan men zowel tekst als gra¬ 
phics op de voorgrond halen of achter 
een ander plaatsen. Hierbij bestaat de 
mogelijkheid om in een transparante 
modus te werken zodat alles zichtbaar 
blijft. Het resultaat is steeds te zien op 


het scherm, zodat eventuele onjuis¬ 
theden meteen kunnen worden her- 
steid. Met GeoPUBLISH is het maken 
van een nieuwsbrief of iets dergelijks 
een piezierige bezigheid. 


benodigde letterfonts, GeoWRITE fi¬ 
les, een PhotoSCRAP of PhotoMA- 
NAGER en de GeoPUBLISH-libra- 
ries. Er kunnen derhalve niet te veel 
programma’s en files op de werkdisk, 
want GeoPUBLISH laat, met z’n 95 



Het pakket GeoPUBLISH 

Als eerste mag worden opgemerkt dat 
GeoPUBLISH zeer compleet wordt 
uitgebracht. Het vergt weinig moeite 
om met het pakket aan de slag te kun¬ 
nen. Het GeoPUBLISH-pakket wordt 
geleverd in een stevige doos en be¬ 
staat uit een diskette en een Engelsta¬ 
lige handleiding. Dit laatste kan voor 
sommigen een bezwaar zijn, dat ech¬ 
ter door het gebruiksgemak al snel 
wordt gecompenseerd. Voordat men 
begint, dient de meegeieverde disket¬ 
te geinstalleerd te worden. Het hele 
programma draait normaal onder 
Geos DeskTop vanaf versie 1.2 of 
hoger. Na het installeren wordt gead¬ 
viseerd een werkdiskette aan te ma¬ 
ken en de origineie diskette op te ber¬ 
gen. 

De werkdisk bevat, afhankelijk van de 
gebruikte computerconfiguratie, een 
aantai bestanden. Echter naast een 
aantai optionele Utilities, dienen de 
volgende files ten minste op de werk¬ 
diskette aanwezig te zijn: het GeoPU¬ 
BLISH programma, een printerdriver, 


Kbyte benodigde ruimte, maar weinig 
ruimte op diskette over. De meegele¬ 
verde handleiding beschrijft op een 
heldere en duidelijke wijze, hoe men 
diskettes in moet delen bij gebruik van 
een andere configuratie, zoals een 
tweede diskdrive of een REU (Ram 
Expansion Unit). De in de handleiding 
opgenomen tutorial neemt de aspirant 
uitgever aan de hand mee door de ge¬ 
bruiksmogelijkheden van GeoPU¬ 
BLISH. 

De Master-pagina 

De eerste stap, nadat men een doku- 
ment heeft geopend, is het creëren 
van een Master-page (hoofdpagina). 
Deze pagina kan worden vergeleken 
met een soort template, die over elke 
af te drukken pagina wordt gelegd, al¬ 
vorens deze naar de printer wordt ge¬ 
stuurd. In de Master-page worden za¬ 
ken vastgelegd die op elke pagina 
weer terug moeten komen, zoals kolo- 
mindelingen, paginanummers, kop¬ 
en voetteksten en eventueel de da¬ 
tum. De mogelijkheden die de gebrui- 
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ker ter beschikking staan in de Mas- 
ter-page modus, zijn in een toolbox 
weergegeven en kunnen door het 
aanklikken met de muis-pointer wor¬ 
den geactiveerd. 

Men selecteert gebieden op de Mas- 
ter-page om deze later te vullen met 
plaatjes. Om een symmetrisch geheel 
te krijgen, is de mogelijkheid aanwe¬ 
zig om "guidelines" (hulplijnen) in te 
stellen. Helaas werkt GeoPUBLISH 
voor wat betreft de indeling van een 
pagina nog steeds in inches. Op zich 
is dit echter niet storend. Zeker niet 
wanneer men op duidelijke wijze 
steeds kan aflezen waar de pointer 
zich bevindt, d.m.v. het dokument in¬ 
dicatie venster. Als men eenmaal een 
gebied heeft aangegeven, kan wor¬ 
den gekozen voor tekst of graphics. 
Wanneer tekst ingevoerd moet wor¬ 
den, klikt men op het icoon met de 
hoofdletter T. Het graphics symbool 
lijkt veel op het icoon van een Geo- 
PAINT-file. Afhankelijk van uw wen¬ 
sen kunt u een ontworpen Master- 
page opslaan in een library (biblio¬ 
theek). Dit is vooral handig als u bij¬ 
voorbeeld een clubblad moet maken 
en steeds dezelfde pagina-indeling en 
lay-out wilt gebruiken. GeoPUBLISH 
wordt standaard geleverd met 42 lay- 
outs, waarvan 21 voor Master-pagi- 
na’s en 21 voor Page-layouts geschikt 
zijn. De functie Master-page Layouts 
biedt de mogelijkheid om allerlei te¬ 
kenwerk te verrichten in de zojuist ont¬ 
worpen Master-pagina. Dit kan bij¬ 
voorbeeld een scheidingslijn zijn tus¬ 
sen twee kolommen, of een koptekst. 
Tekeningen en graphics die op elke 
pagina terug moeten keren, worden 
nu ook gemaakt. Men denkt hierbij bv. 
aan logo’s 

Pagina-opmaak 

Er zijn twee manieren waarop men de 
uiteindelijke pagina-opmaak kan reali¬ 
seren. De eerste is de Page-Layout, 
waarbij tekst en plaatjes worden ge¬ 
ïmporteerd uit GeoWRITE-files of een 
Photo Scrap. De Page-Layout modus 


biedt geen tekenmogelijkheden, maar 
wel diverse opmaakfaciliteiten. Een 
handig hulpmiddel in deze modus is 
de "snap" functie. Deze functie zorgt 
ervoor dat een te definiëren gebied 
gelijkgesteld wordt met de "guideli¬ 
nes" (hulplijnen). Hierdoor worden de 
naderhand in te voeren kolommen 
tekst allemaal van gelijke grootte. 
Hebben we eenmaal een gebied ge¬ 
markeerd, dan kunnen we deze vullen 
met tekst uit een GeoWRITE file. Hier¬ 
toe klikt men eerst op het pijl-icoon om 
het gebied te activeren. Ven/olgens 
klikt men met de "pointer" het T-icoon 
aan, waarna een window met de be¬ 
schikbare files verschijnt. 



Men selecteert het benodigde file en 
de tekst zal als een gearceerd veld in 
de geselecteerde kolom verschijnen. 
Om de tekst over te laten vloeien naar 
de volgende kolom, klikt men eenvou¬ 
dig binnen de omlijning van de volgen¬ 
de kolom. Ook hier wordt d.m.v. een 
arcering aangegeven dat de kolom is 
gevuld met tekst. Voordat de tekst be¬ 
keken kan worden, dient deze eerst 
"gerippled" te worden. Hieronder 
wordt verstaan, het aanpassen van de 
tekst aan het GeoPUBLISH formaat. 
Dit betekent dat de tekst wordt gefor¬ 
meerd om eventueel ingevoegde 
plaatjes e.d. Een ononderbroken ar¬ 
cering geeft aan dat de tekst is "gerip¬ 
pled". Het resultaat kan alleen worden 
bekeken wanneer het dokument zich 
in de Page-Graphics modus bevindt. 



Men beschikt dan over de "zoom"- 
functie, waarmee de nu nog onleesba¬ 
re tekst in de "WYSIWYG"-weergave 
verschijnt. Dit gaat echter ten koste 
van het totaaloverzicht, omdat slechts 
een gedeelte van de pagina wordt 
weergegeven. 

Het invoegen van plaatjes. 

Terug naar de "preview"-(overzicht) 
functie, waarbij de gehele pagina 
weer op het scherm wordt getoond. 
Het invoegen van een "bit mapped" 
graphic (tekening opgebouwd uit 
puntjes) kan op zeer eenvoudige wij¬ 
ze worden gerealiseerd. Men selec¬ 
teert wederom een gebied ergens tus¬ 
sen bijvoorbeeld twee kolommen. 
Vervolgens klikt men het "redraw" 
icoon aan, waardoor de tekst opnieuw 
wordt weergegeven als een onderbro¬ 
ken gearceerd gebied. Hierdoor kan 
de tekst zich aanpassen aan de om¬ 
vang van het in te voegen plaatje. Nu 
halen we het plaatje binnen door eerst 
het gebied te markeren en vervolgens 
het "graphic" icoon aan te klikken. 

Het programma toont nu een window 
op het scherm, waaruit een keuze ge¬ 
selecteerd kan worden op welke wijze 
het plaatje moet worden ingevoegd. 
Deze mogelijkheden zijn gecentreerd 
in het gebied, aangepast aan de be¬ 
schikbare ruimte en op een wijze zo¬ 
dat het plaatje wordt uitgerekt en aan¬ 
gepast aan de beschikbare ruimte. 



Hierbij bestaat tevens de mogelijkheid 
om dit "smoothed" (geleidelijk) te laten 
gebeuren. Met het "text" icoon kunnen 
we nog een "headline" (artikelkop- 
tekst) invoeren, die rechtstreeks van¬ 
af het toetsenbord d.m.v. een editor 
wordt ingetypt. Een scala aan variëtei¬ 
ten staat de gebruiker hierbij ter hand. 
Zo kan men de letterhoogten laten 
variëren van 1 tot 192 points, een keu¬ 
ze omtrent een lettertype is aanwezig, 
de weergave van het gekozen letterty¬ 
pe is een van de opties. 

Niet te vergeten, is de nuttige optie, 
waarbij de in te typen tekst horizontaal 
of verticaal, alsmede van onder naar 
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boven of vice versa kan worden weer¬ 
gegeven. Ook het patroon van de 
tekst waarmee de gebruiker geavan¬ 
ceerde schaduwteksten kan vervaar¬ 
digen kan worden geselecteerd. Op 
dezelfde wijze worden vervolgpagi- 
na’s gemaakt. 


Cirkels, lijnen, enz. 

Nog steeds in de Page-Graphic mo¬ 
dus wordt een pagina voorzien van 
versieringen, zoals cirkels, ellipsen, 
vierkanten e.d. Deze mogelijkheden 
worden geselecteerd uit de "toolbox" 
en blijven actief tot een andere functie 
wordt aangeklikt. Met het "attribute" 
icoon kan het vulpatroon gekozen 
worden om de tekening te maken of in 
te kleuren. En dan tekent men het ge¬ 
wenste figuur in een van tevoren ge¬ 
selecteerd gebied. Wanneer men de 
"zoom" functie gebruikt, kan met een 
grotere nauwkeurigheid worden ge¬ 
werkt. Men kan een tekening dan pre¬ 
cies op die plaats zetten, waar men 
hem wil hebben. Indien het noodzake¬ 
lijk is kan men een afbeelding nog ver¬ 
plaatsen naar een andere plaats bin¬ 
nen de pagina. 

Een aardige optie uit het "graphic at¬ 
tribute" window is de keuze "opaque" 
(ondoorschijnend) of "transparant" 
(doorzichtig). Hiermee kunnen leuke 
effecten in het tekenwerk worden be¬ 
reikt. Er zijn natuurlijk nog legio moge¬ 



lijkheden die dit DTP-pakket voor de 
Commodore 64 tot een zeer uitzon¬ 
derlijk programma maken. Het zou te 
ver voeren deze mogelijkheden in dit 
artikel allemaal te behandelen. 

Afdrukken van een 
dokument. 



Verreweg de simpelste handeling is 
het laten printen van een dokument. 
Uit de menubalk, bovenin het scherm, 
wordt de functie "file" aangeklikt, 
waarna een "pulldown" menu ver¬ 
schijnt. Hieruit wordt de keuze "print" 
geselecteerd, Een dialoogvenster ver¬ 
schijnt met een aantal opties. Ten eer¬ 
ste kan gekozen worden van welke tot 
welke pagina afgedrukt moet worden. 
Voorts kan men kiezen of afgedrukt 
moet worden op losse vellen of ket- 
tingpapier. Naast deze opties kan een 
selectie worden gemaakt om alleen 
de Master, de layout of de gehele in- 
houd af te drukken. Op een matrix¬ 
printer van 9x11 dots is het resultaat 
toch zeer redelijk te noemen. Met een 
laserprinter, waarvoor een speciale 
printer-driver wordt meegeleverd, is 
het uiteindelijke produkt gelijk aan een 
afdruk gemaakt met behulp van een 
PC of een Apple Macintosh. 

Conclusie. 

GeoPUBLISH is, en hoe kan het ook 
anders, een goed doordacht program¬ 
ma. Berkeley Softworks is er weder¬ 
om in geslaagd een uniek pakket op 
de markt te brengen, dat z’n weerga 
niet kent. Een vergelijking met soort¬ 
gelijke DTP-pakketten leert ons dat 
GeoPUBLISH met kop en schouders 
boven de anderen uitsteekt. Het aan¬ 
tal mogelijkheden welke GeoPU¬ 
BLISH kent, zou men alleen op een 
PC verwachten. Het aantal toepas¬ 
singsmogelijkheden met GeoPU¬ 
BLISH zijn onbegrensd. Het integre¬ 
ren van files uit GeoCALC en GeoFI- 
LE (zij het via GeoWRITE) beïnvloedt 
de bruikbaarheid op een gunstige wij¬ 
ze. GeoPUBLISH zal, naast de ande¬ 


re applicaties van GEOS, een popu¬ 
lair programma worden in Nederland. 
Dit desondanks de enigszins teruglo¬ 
pende belangstelling van de Commo¬ 
dore 64 computers. Je zou haast den¬ 
ken dat het programma zaligmakend 
is. Toch moet worden opgemerkt dat 
het programma bij gebruik van slechts 
een diskdrive in snelheid afneemt. Ze¬ 
ker wanneer een pagina veel grafi¬ 
sche informatie bevat. Het gebruik 
van een REU of tweede diskdrive 
komt de snelheid in dit geval ten goe¬ 
de. GeoPUBLISH vormt in elk geval 
een stap in de goede richting, van de 
verdere volwassen wording van de 
Commodore 64 en 128. Met dit pakket 
kan de tot nog toe amateuristische 
"uitgever" werken aan een kwalitatief 
hoogwaardig eindresultaat. Welis¬ 
waar binnen de grenzen van de mo¬ 
gelijkheden van de C64. En niet in de 
laatste plaats, de creativiteit en fanta¬ 
sie die de gebruiker er zelf in legt. 
GeoPUBLISH wordt geïmporteerd 
door FROTECH BV. (Postbus 189, 
3620 AD Breukelen). Het pakket komt 
medio juni in Nederland op de markt 
en gaat ƒ 159,00 kosten, hetgeen 
voor een DTP-pakket van deze allure 
zeker niet duur is. 

Bert Venema 


GEOWorld Nieuws 
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Graphics Gnbbcr Uat de raatasie vta 
de gebiTtiVer tot lerea komea. 

Op de OESKPACK t diskette, welke Berkeley 
Softworks ongeveer een jaar geleden op de markt 
bracht, staat naast een aantaJ nuttige en leuke Uti¬ 
lities de applicatie GRAPHICS GRABBER. Met dit 
programma wordt de weg geopend naar nog veel- 
zljdiger gebruik van de gehele GEOS programma 
serie. Vooral in combinatie met GEOPAINT worden 
de grafische mogefijkheden van de Commodore 64 
lot het uiterste uitgebuit 
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Met GRAPHICS GRA88ER transporteert u op een¬ 
voudige wijze honderden plaatjes vanuit Printshop, Print* 
Master en Newsroom, voor gebruik in GEOPAINT ofCEO- 
WRITE, U copiëert :e stuk voor stuk in groepen, De gese¬ 
lecteerde plaatjes kunnen in een PHOTOALBUM worden 
vastgelegd. Door de plaatjes in GEOPAINT weer m te laden 
kunt u op veel manieren zeer mooie en vooral ook zeer ge¬ 
avanceerde tekeningen samenstellen. Ook in hel pcJ^ket CEO* 
PUBLI6H. waarmee deze pagina is vervaardigd kunnen de 
tekeningen uit lie eerder genoemde pakketten een nuttige 
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maar vooral ook fraaie aanvulling ajn, ter ondersteuning van de 
tekst Op die manier kan elke Commodore gebruiker met be¬ 
hulp van een -lantaJ veelzijdige programma's, zich als echte 
uitgever mafiifesteren. Het begrip DESKTOP PUBLI8- 
HING wordt door deze mogeii|hheden volledig waargemaakt 
Een aantal vooibeeldem van tekeningen oo deze paigina, zijn 
arkomsfkj uit Newsroom, bewerkt met GEOPAINT en ver- 
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Deze nieuwe aflevering uit een reeks technische artikelen over GEOS door Peter 
Boncz, gaat over fonts. Er wordt uitgebreid ingegaan op de bouw en de FILE-structuur 
van deze fonts. Ook het VLIR systeem (Variable Length Indexed Records) komt daar¬ 
bij weer aan de orde. De listing van deze keer is een FONT-MAKER, waardoor het op 
simpele wijze mogelijk wordt zelf nieuwe lettertypes te ontwerpen en te gebruiken. 


Zelf GEOS-fonts ontwerpen 

FONTPACKl 


I n Geowrite en Geopaint heeft men 
de beschikking over een aantal ver¬ 
schillende fonts, ofwel lettertypes. 
Deze fonts zijn meestal in meerdere 
groottes aanwezig, en kunnen in ver¬ 
schillende stijlen op het scherm en 
de printer gebracht worden. BSW 
(Berkeley SoftWorks) is het enige 
font dat standaard is, het is ’memo- 
ry resident’, oftewel altijd in het ge¬ 
heugen aanwezig. Het behoort tot de 
GEOS Kernai, en wordt voor Dialog 
Boxes en Puil-down menus in de 
GEOS- environment van DESKTOP 
gebruikt. 

De andere fonts zijn als aparte files op 
disk aanwezig, zij kunnen - als de ge¬ 
bruiker een beroep op ze doet - in het 
geheugen ’ge-download’ worden. 
Normaal zijn er 5 van zulke fonts, ie¬ 
dereen die wel eens met GEOS ge¬ 
werkt heeft kent ze: University, Roma, 
California, Dwinelle en Cory. 

Omdat variatie nooit weg is heeft Ber¬ 
keley Softworks een zogenaamd 
Fontpack uitgebracht met 20 extra let¬ 
tertypes. Degenen die deze tekst 
goed lezen en eventueel de listing in¬ 
tikken, kunnen daar echter nog ontel¬ 
bare aan toevoegen. In dit artikel 
wordt namelijk het precieze hoe en 
waarom van fonts in GEOS uitgelegd. 
De listing van deze keer is bovendien 
een zg. font-maker. Maar wat is er nu 
bijzonder aan GEOS-fonts? Het eer¬ 
ste wat opvalt is dat lettertypes in bij¬ 
voorbeeld Geowrite werken met pro- 
portional spacing. Dit houdt onder an¬ 
dere in dat een ’m’ breder is als een T. 
Voorts is het zo dat de computer uit 
het ingeladen font de verschillende 
styles (bijvoorbeeld BOLD of ITALIC) 
berekent, maar dat er geen sprake is 
van een vergroot- of verklein-routine. 
Voor iedere puntgrootte in een font 
wordt dus een aparte karakterset ge¬ 
geven. 

grootte 

De grootte van een karakter in GEOS 
wordt aangeduid in puntjes. Een punt- 


TWENTY NEW FONTS FOR USE WITH GEOS" 


IDgkonos 
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^ Duram f jivih 
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Q[\ 
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PUOUUJQ 
bUeNN^NS 

Tof ma A ;> 


U) 

c 
co 
> 
LU 


£ CT O, 

Os|g| 

3 2 ^ S 

^ Hearst ê | 


-' = a 

- 9- 3» ai 

riitnani 


fïïïïjp 



a lh-\ 


liowditchifl 


je is op het scherm 1/72 inch, en op 
een normale 80 koloms printer 1/80 
inch. Deze grootte slaat op de hoogte. 
De breedte van een karakter is, zoals 
gezegd, variabel. Verderven belang is 
nog de ondermarge. Bij normale ka¬ 
rakters wordt een ondermarge aange¬ 
houden, d.w.z. er is een lege ruimte 
aan de onderkant van een karakter. 
Dit met het doel letters als de ’p’ de 
mogelijkheid te geven naar onderen 
uit te steken. De hoogte van een ka¬ 
rakter in GEOS is niet aan grenzen 
gebonden, de maximale breedte is 
daarentegen 54 punten. 

karakterset 

Een reeks karakters in dezelfde stijl 
wordt een karakterset genoemd. Een 


font is een verzameling karaktersets 
van dezelfde stijl maar met verschil¬ 
lende groottes. Een karakterset wordt 
daarom naast zijn naam aangeduid 
met de puntgrootte, bijvoorbeeld 
Roma 9. leder font heeft een eigen 
font identifikatie-nummer. Fontnum- 
mers zijn 10 bits lang. Legale font- 
nummers variëren van 0 tot 1027. Ie¬ 
dere karakterset heeft zijn eigen font- 
ID. Een font-ID is een combinatie van 
het fontnummer en de puntgrootte van 
de karakterset. Bits 15 tot 6 bepalen 
het fontnummer, bits 5 tot 0 bepalen 
de puntgrootte. In het schema van fi¬ 
guur 1 staan de nummers, groottes en 
font ID’s van de karaktersets in de 
fonts die standaard bij GEOS gele¬ 
verd worden. In GEOS bestaat een 
karakterset normaliter uit 96 tekens, 
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die aangeduid worden met de waar¬ 
den 32 tot 127. GEOS codes 64 tot 95 
komen overeen met ASCII 128 tot 
159, de codes 96 tot 127 met ASCII 64 
tot 95. De waardes 32 tot 63 zijn in 
GEOS en ASCII identiek van beteke¬ 
nis. De andere codes, vooral de lage 
nummers, worden in Geowrite ge¬ 
bruikt voor het aanroepen van func¬ 
ties, of het aangeven van bijv. tab- 
stops, verandering in font of stijl, en 
nieuwe pagina markeringen. 


GEOS Fonts 


Number 

Point Sizes 


1 

Font Name 

Top 10 bits 

Last 6 Bits 

ID Word 

BSW 

0 

9 

$00 

09 

University 

1 

6 

$00 

46 



1 0 

$00 

4A 



1 2 

$00 

4C 



1 4 

$00 

4E 



1 8 

$00 

52 



24 

$00 

58 

Callfornla 

2 

1 0 

$00 

8A 



1 2 

$00 

8C 



1 3 

$00 

8D 



1 4 

$00 

8E 



18 

$00 

92 

Roma 

3 

9 

$00 

C9 



1 2 

$00 

CC 



1 8 

$00 

D2 



24 

$00 

D6 

Dwinelle 

4 

18 

$01 

12 

Cory 

5 

1 2 

$01 

4C 



13 

$01 

4D 


/. Overzicht van de GEOS-fonts 

VLIR 

Fonts worden op disk opgeslagen in 
VLIR files van het type FONT. Iedere 
VLIR file, dit kwam in de vorige afleve¬ 
ring al aan de orde, bestaat uit 3 de¬ 
len, nl. de Fileheader, de Index Table 
en de afzonderlijke Records. In de di¬ 
rectory wordt achter de filenaam ver¬ 


Offset into File Header 

# Bytes 

Description 

OFF GHFONTID = 128 ($80) 

2 

Unique Font ID 

OFF_GHPOINT_SIZES = 130 ($82) 

32 

Font ID tor each character set, trom 
smallest to largest. Padded with Os. 

OFF_GHSET_LENGTHS = 97 ($61) 

32 

Size in bytes of each character set trom 
smallest to largest. Padded with Os. 


S.fontdata in de fileheader. 



2. GEOS-VLIR opslagsysteem 


wezen naar track en sector van de fi¬ 
leheader. De 2 bytes voor de filenaam 
verwijzen naar de Index Table. Iedere 
GEOS file is opgedeeld in RE¬ 
CORDS, deze komen in deze Index 
Table samen. Flet VLIR-structuur 
schema (ill. 2) werd vorige keer ook 
geplaatst, maar is van groot belang 
zodat het er deze keer weer bijstaat. 

Fileheader 

Informatie die nodig is om een font te 
gebruiken staat in de fileheader. Zoals 
gebruikelijk bevat deze de data van 
het icon (byte 5 tot 67), en van bijv. het 
laad-adres en start-adres. Specifiek 
voor een font zijn echter de bytes 97 
tot 160 (vanaf 0 gerekend: de eerste 
byte is dus byte 0). Bytes 97 tot 127 
herbergen de fontgrootte-tabel. Daa¬ 
rin staat de ruimte in bytes die de ka¬ 
raktersets (van klein naar groot) in het 
geheugen innemen. De bytes 128 en 
129 bevatten het fontnummer, en tot 
slot bevindt zich de font ID-tabel in de 
bytes 130 tot 160. In deze tabel staat 
het font ID van iedere karakterset van 
de kleinste naar de grootste punt- 
grootte. Eventuele lege plaatsen in 
deze tabellen worden opgevuld door 
$00’s (zie ill. 3). 

Record-structuur 

De Index Table beslaat 1 
block van de disk (256 by¬ 
tes). De eerste 2 bytes 
bevatten de waardes $00 
en $ff. Track en sector 
van Record 0 staan in de 
derde en vierde byte, die 
van Record 1 in byte 5 en 
6 etc. Iedere karakterset 
is een record van de VLIR 
file. De karakterset met 
een grootte van n puntjes 
staat in het n-de record 
van de file, dus record 15 
bevat de karakterset met 
puntgrootte 15. Als er 
meerdere lettergroottes 
beschikbaar zijn. dan be¬ 
staan er dus ook meerde¬ 
re records, ieder record 
bevat dus 1 karakterset. 


Zo’n record kan in drie delen worden 
gedeeld: 

° byte 2 tot 9 huisvesten enige varia¬ 
belen, zie ill. 4. (In byte 0 en 1 staan 
altijd de track en sector waar het re¬ 
cord verdergaat.) 

° in byte 10 tot 203 staat de width-ta- 
ble, waarin de breedte van de af- 
zondelijke letters wordt vastgelegd. 

° De rest van de bytes bevatten het 
data-blok, daat worden de karakters 
puntje voor puntje gedefinieerd. 

Data-blok 

Om het allemaal duidelijk te houden is 
het hier beter even bij het laatste on¬ 
derdeel van een record, het data-blok, 
te beginnen. Een font wordt door 
GEOS per horizontale rij puntjes 
weergegeven. Als de puntgrootte 
(hoogte) 8 is zijn er dus acht horizon¬ 
tale rijen data. Zo’n horizontale rij be¬ 
staat dus uit een aantal bits dat gelijk 
is aan alle afzonderlijke letterbreedtes 
bij elkaar opgeteld. Het aantal bytes 
dat zo’n horizontale rij inneemt, is dit 
aantal bits gedeeld door acht, afge¬ 
rond naar boven. Dit aantal staat ook 
bij de variabelen, in byte 3 en 4. De 
geheugenruimte, die de karakterset 
inneemt is logischerwijze horizontaal 
maal vertikaal, dus het aantal bytes 
per horizontale strook maal de punt¬ 
grootte. 

Width-table 

De width-table staat middenin het re¬ 
cord: achter de variabelen (gewoonlijk 
dus in byte 10, zie schema 4), en voor 
het data-blok. Deze tabel bestaat (als 
er 96 tekens zijn) uit 97 breedte- poin¬ 
ters. De width-table werkt heel een¬ 
voudig. De eerste breedte- pointer is 
$00, $00. Als karakter 32 (het eerste 
teken) bijv. 8 puntjes breed is, is de 
volgende breedte-pointer $08, $00. 
Dit gaat volgens het normale adresse- 
ringssysteem, dus als de low-byte 
over de 255 komt wordt de high-byte 
1 opgehoogd. De eerste breedte- 
pointer geeft aan waar het eerste ka¬ 
rakter begint etc, dus de 96e waar het 
96e karakter begint en de 97e breed- 
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byte 

functie/inhoud 

S02 

puntgrootte rrin ond>er,marqe min 1 

S03+S04 

aantal bytes per horizontale strook 

S05 

puntgrootte 

506+S07 

pointer (low-byte, high-byte) naar 
begin width-table, gewoonlijk S08, 
$00. 

$08+509 

pointer naar begin data-blok, 
qewoonlijk 5CA, 500. (de pointers 
wijzen vanaf byte $02). 

$OA+50B 

etc. , . 

eerste breedte-pointer. 

SCA+5CB 

laatste (97e) breedte-pointer. 

SCC 

begin data-blok 


4. record-striictuur. data-hlok eii 
width-tahle 

te-pointer geeft aan waar het 96e ka¬ 
rakter eindigt. Direct na de width-table 
begint dan het data-gedeelte. 

Samenvatting 

Dit was het dan weer voor deze keer 
wat de droge informatie betreft. Fonts 
en VLIR in GEOS blijven taaie mate¬ 
rie, daarom volgt hier een beknopte 
samenvatting: 


° een font is een verzameling karak¬ 
tersets met verschillende hoogten. 

° een font wordt op VLIR manier op 
disk gezet, dus er is een FILEHEA- 
DER en een INDEX TABLE waar 
de RECORDS samenkomen. 

° iedere karakterset is een record, 
een karakterset van een n-punts let¬ 
ter is het n-de record van de index 
table. 

° een record is op te delen in: varia¬ 
belen, width-table, en een data- 
blok. 

“fontdata worden per horizontale rij 
bytes opgeslagen. 

Praktijk 

De theorie is bepreken en (hopelijk) 
duidelijk, nu dan naar de praktijk! De 
praktijk houdt traditiegetrouw een lis- 
ting in, en dit keer is dat een hele 
mooie utility: een fontmaker. Wat kan 
hij wel, en wat kan hij niet? Flet pro¬ 
gramma is in BASIC geschreven en is 
weliswaar vrij overzichtelijk, maar het 
werkt dus niet al te snel. Bij het ont- 

De FONT-MAKER 


werpen van grote lettertypes (bijv. 20 x 
20 puntjes), kan het bovendien ge¬ 
beuren dat de BASIC-ruimte voor va¬ 
riabelen (33 KI) vol raakt. Dit gebeurt 
echter alleen als alle 96 tekens een 
dergelijke breedte krijgen, dat is niet 
echt waarschijnlijk. Toch is het aan te 
raden regelmatig het font-in- aanbouw 
te saven, want je weet natuurlijk nooit. 
Een andere beperking van deze font¬ 
maker is het feit, dat hij alleen fonts 
kan maken met 1 lettergrootte. Als 
echter ook in de mogelijkheid van 
meerdere puntgroottes was voorzien, 
zou de listing echt te omvangrijk ge¬ 
worden zijn. Maar de FONT-MAKER 
is toch een vrij comfortabel program¬ 
ma, dat dingen kan, die tot nu toe niet 
mogelijk waren. Bij mijn weten bestaat 
er ook geen literatuur over de struc¬ 
tuur van GEOS-fonts, dus Commodo¬ 
re Info heeft de première. Al met al 
een heel aardige listing, er kan bij¬ 
voorbeeld een FONTPACK van ƒ 75,- 
mee uitspaard worden. Tot een vol¬ 
gende keer! 

Peter Boncz 


regeloverzicht font-maker: 

reg. 1000 tot 1710 - het EDIT gedeelte 
reg. 1720 tot 1840 - HOOFDMENU 
reg. 1850 tot 1970 ■ LADEN en SAVEN 
reg. 1980 tot 2740 - CONVERSIE 
reg. 2750 tot 2840 - DATA 

Omdat het ontwerpen van een font een heel karwei is, is 
het EDIT- gedeelte vrij comfortabel uitgevoerd; er zijn wei¬ 
nig dingen die men fout kan doen. Bovendien is er de mo¬ 
gelijkheid tussentijds te saven, zodat het ontwerpen van 
een font niet in een ruk moet gebeuren. Als het program¬ 
ma gestart wordt komt men in het hoofdmenu terecht. 
Kiest men dan editen, dan volgt de vraag naar de maxima¬ 
le hoogte, breedte en de ondermarge. Denk er wel om tij¬ 
dens het editen die marge aan te houden, en houdt er ook 
rekening mee dat die marge inbegrepen is bij de hoogte. 
Dus een hoogte van 10 en een marge van 2 levert een let¬ 
ter van 8 puntjes op. 

Tijdens het editen hebben de volgende toetsen functies: 
F1 - naar het volgende ASCII teken. 

F3 - naar het vorige ASCII teken. 

F5 - naar het HOOFDMENU. 

F7 - letterbreedte 1 punt smaller. 

F8 - letterbreedte 1 punt breder. 

RETURN - veranderen van vol in leeg of omgekeerd. 
De cursortoetsen besturen de cursor. 

Programma-uitleg 

In het EDIT-gedeelte worden de karakters opgeslagen in 
de array A$ [asc,ho], waarin asc het ASCII teken is, en ho 
de hoogte. Deze array bestaat uit puntjes en sterretjes 
(een puntje betekent ’leeg’, een sterretje Vol’). De lengte 
van die array-string (ofwel de breedte van het teken) is per 


karakter verschillend en wordt opgeslagen in de array br 
[ascj. 

Flet CONVERSIE-gedeelte werkt deze gegevens om. In 
reg. 2130 tot 2180 worden de array-strings A$[asc,ho] van 
dezelfde ho(ogte) achter elkaar gezet van asc = 32 tot asc 
= 127. Ze worden omgewerkt naar een serie bytes die in 
het geheugen gePOKEd wordt (Het geheugengebied waa¬ 
rin gePOKEd wordt is adres $C000 tot $D000, zet daar dus 
geen snelladers of disk-monitoren neer!). Zo krijg je een n- 
aantal (n=hoogte) series bytes. Daarvoor, in reg. 2060 tot 
2090, waren al de 8 variabelen ingePOKEd, en in reg. 
2100 tot 2120 waren de breedtes (opgeslagen in br[asc]), 
omgewerkt tot de width- table. Omdat de variabelen, de 
width-table en het data-blok dan klaar zijn, wordt een be¬ 
gin en eindadres aangegeven (BB en EE) en gesprongen 
naar reg. 2550. Daar staat de SAVE-routine. Deze bepaalt 
track en sector (TT en SS) waar het record qeSAVEd 
wordt. 

Deze track en sector worden in de Index Table verwerkt, 
we schrijven dan regel 2200 tot 2240. Ook de Index Table 
wordt geSAVEd, dus weer naar reg. 2550. Ook hiervan be¬ 
paalt de SAVE- routine track en sector (weer TT en SS). 
We komen dan bij de fileheader, deze wordt onder de uit¬ 
eindelijke fontnaam als PRG-file geSAVEd. Let op de data 
die in reg. 2260 reREAD worden. Het wegschrijven van de 
fileheader ging in reg. 2250 tot 2310. 

Dan zijn we toe aan het aanbrengen van wijzigingen in de 
directory. TT en SS (van de Index Table) worden voor de 
naam geplaatst, de oorspronkelijke track en sector (van de 
fileheader) erachter, het PRG-format omgetovert in USR 
en nog enige GEOS variabelen worden toegevoegd. Deze 
omzettingen in de directory vinden plaats in reg. 2320 tot 
2460. Als het programma klaar is met de conversie, kan 
GEOS opgestart worden. 


22 


Commodore Info 5/88 






GEOS Archief 


ListingFontmaker 


11? (-3 0 r- >?;;• rii 
1010 rem 
1020 rem 
1030 re Hl 
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16^93 ren'! 

11:::I70 r-em 

1 13i3 13 'i, t■ .a: e;.;>3-ei.ïpC: l .ei.: iE.<: 15 e; t.I-IenF' f:- ^-i'.:: f-- t-6^ ■::(i:;:it;..:::i 17 j, B 

1 690 :i, 7 .a::=->64.and .as<91 t-henp P —-aEE. = goto 1718 

j, 'i”' 0 B i"’ F' ■=" 3. EE. 3i ;3 ■ i 7 F' F'" El 41. F-i ie- ï'i F' p - :3 9 

1710 return 

i 'P'20 !'-em 

1730 r€’m 

17'40 rem 

175EÊI rem 

:L i:i;l El 1 - HE’ m l-i i:::i .::;i 'f' d n'i ie-’ n u 
1770 r-eivi 

1780 P r i nt" r CLR-HOME 1 112xneer :i ilRVS-aanËl iË 1 5 xee.p at. i e!] H 

eo-rcimfi i'i'-'. iË 16xsp 3.t- i e Ël lË RVE'.u i t- Ëi" 

179EÊ1 p r :i. nt." IË ËËlxneer ] IË 7xsp .in.t. i e Ël 1 Ë' ei:::l :i. ten" ■ p I’- i nt" IË vieer 

1 7xEE.p .Ei.t. i e Ëi 2 Ë' EE..aven " '■ p r i nt" EË neer Ël IË 7xE;:.p 3.t -1 e Ë! 3 Ë' 

1 .aden" 

:i, 1:::1 l!;:l tl F' l' "' 1 ïi t.'' IË ï'l •:!■ HE’ l’"’ Ël IË 7 X :E. F' •=*, t. i i-- Ël '4 Ë' C: c:i V'l lEi’ r :iE- ;i. lE' " ■ IJ l-'-1 n t.' ‘ IË 2 X ï' 

Ël lË R. V El" 3. .= 1 . Tl Ë! !Ë .1 3 X ■=■ ?:■ .= 1 . t- i te- Ël h'l -ei. .3. k i..i. i...i k i..i. z: h:: IË 1 -^1 ee- p 3. t i he’ Ëi 

lËRVS-’i..i. 11.:! " 

11"! 1 tl hE' t .iH. eIe ■ .ei.^-el 1. (.ei. 4: Ë' ■ i 7 -3. S~" " t.hi ti 1:3113 

1 El20 3. s-=üii ■ i f' .3, -1.3. rI d hi cei -C !!:■■ 011- hi he- n 'J. 12 8 

J, lËËi 3i tl i::i n •=', 9 o t o 1 ti 7 ti19 3 01 Ei ti .■ 2 ti 4 tf .■ 1713 8 

1840 goto 1780 

1850 rem 

1860 rem 

1 El 'l''’ lËi i::e 1 r ■ j. ï'i f- u t:-'' ti -3. . 3 . n'i ''7 4" ' ci F' «Ei- ti 1 ü .• Ei.- 11::' 

1 El El 0 Cl p e Tl Eli::i.. El.. " H tl = " + f £i. r '' 

1 El 9 0 i Tl i-‘ 1 -. 1 . t. iFF i”i .1 b r ■ i ti f- <-i. t. # 8 l-i id ■ 9 o s. y. i:::i ËP 7 ëëi ti 

1 ë 306 f orb=0to95 = f or.a= 1 toho = i np ut#8 .■ a$ <b .■ 3 . > ■ TiüE-xt 
191 0 i Tip ut#8.. br 'Ëb > ■ next 
1920 c 'l ciseS8.. 8 = c 1 ose 158 ..15 = 90 1o 1788 

1930 i Tip ut" Tiaai'i'i" .; 7'^- ■ op en 15.. 8.. 15 

1940 op en888.. " 08 = " +f 4:-t-" .. si,.i" 

195tl F' I- i nt#8.. br = p r- i Tit#8 ,■ hto = f orb--0t.o95 = -ror-Ei.” 1 tiijro 
1960 p r 1 nt#8.. 3.t- 'Ëb .3. > = next. 3. = p r iTit.#8.■ bf"- ‘Ëb Ë' = next,.o 

1 lËii'P'ti c 1 1:1 se8 .. 8 8 = c i. ose 1 5.. 8 ..15 = 901 o 1 ■;-=‘S0 
11380 rem 

19:30 reivi 
ËË:000 r-em 
2010 rem 

;3 B :3 f3 r- e ri-i c: o ti e r- s i «=•- 
2030 i-em 

2 FË:i 4 i-Ë:! p r- i ti t-'' I lËË L. R -- i"i 0 tl E Ël L 6 n e e !■■■■ Ël E 1 lËi s f- 3. t i e- Ël E x e '[-i G e d i..f. 1 

d FiUEIË5xneer] " 

2EiEïEi op en 15.. S .• 15 = op e n5 .. 8 .. 1.5 .■ " # " 

206FËi f'cir-3.~Flito95 = hh—hhi-+-br Ca .ë' = "next 

2070 F' ok e49152.. ‘Ëho--orM--1 ii' = hki” i Tit ‘Ëhh/B Ë'-i-1 ■ p ok e4Ei 1 53 
kih 

:ë;080 p ok e'49 154 .■ 0 = p oke49155ho = p ok e491 Ë:i6 .■ 8 = 1 b‘~B 
2 0 9 tl p o k 915 7 .■ ti = p Cl F:; e 4915 Ei.. 202 = p o F? e 4 91 lEi 9.. ti = h la =: 8 
Ëë: 1. tl tl -E- .:::i h- a. == B -t o 9 6 = f- F;: e 4 E' 3.6 8 h- 2 * -a .■ 1. ki = f- C' F^; c- 4 916 1 + 2 * -aF' i b 
1 b= i b+br lË-a Ë- = :i, -l’' 1. bË>255tF-ieTiF'ib=^hb +1 ■■ 1 b-~= 1. b--255 
21ËË:F::i Tiext.a m:::h= 1 uas==0 

ËPlË::ii:::i -rorc—l-to l'-io = d™! = .as ~0 = -F'or-a--^ 1 tciF'iF"! = f'Qrb“0-tci7 
ËË^40 .a4:-m ;i. 04= Ca4= Cas.. c >.- d.. 1 
1 i::i ti i -i-' .3. 4: " t F'i lE- Tl d - i = .,a :e. -a s. ■■i' 3. = 9 o t. is 2 3.4 fëI 

2 :L Ei 0 :l -l’- .iE.4--^ " ütii" t.F-ie ti b;j ^ b y + 2'T' 'Ë7-b Ë’ 

2170 cl-d-^-1 ^ nextb 

.:l:11::10 p oF:; e49Ë:-i-5Ë::i -F- =Ëc--l .T'l^l-'iF'v-i'.Ei... Fjy = tjy—ti = next-a = nextc 
2190 ee=49353-+F-io4iF-.F-i = pokeee,. 8 = bb=4915ËË: = 9osu.b2550 
2 2 Ei tl -E' o r- -a =-1 t o h ci = (;:■ i::i k e- 5 2: cË S B + 2-M . 3 ... 0 = p o F:; e52291 -+• 2 # .3. ..255 = 
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GEOS Archief 


i: 10 pok e52;::iy2'+-2#ho .■ tt • p oke!iiii22y3+2'*ho .• ss 

^20 fora=0t.o 125-ho = 1 b=52294+2*ho+2*a = p ok e \ b.. 0 


230 

240 

pokelb+l,. 255^ 
9oeu.b2550 

nexta - bb=52 

250 

i Npu.b-"forit-riaa 

ni" riï ' op ë ri3 

260 

f or"-a=2b-o96 ' r€ 

=i.db ■ print#8 

2'?0 

■lb=20244-.h*ho ■ 

th==i nt l.b.-'2 

280 

pr irit#3.. chr^^ ■: 

tl chr# <:th-i 

290 

f'ora=9::)tol27 - 

Print#8.. chr 

300 

pri-Mb-#S.. chr^ ■: 

; : 1 t.o30 

26 chr sf <:0 ;■ 

e: 1 

320 

pr i'rib.#8.. chr# >: 

0 ■ ne-xta = c 

330 

pri rib#15.. "b-r 

“5.. 0.: vt;> VS 

340 

z=G = 9osu.b2490 

■ t'...'=by = 9'i'su. 

350 

■Porb-~0b-o7^ ■ bT~ 

M .. 

360 

z=5+t*32 = for-Ef 
i;:by y ■ nexba 

•=:L tole-n 'PnS :) 

370 

ifleft* .;:b*l€ 

I-. Cnï :;.=ri«:tf-N 

380 

Tiexb b ' '...’b-=b-V'' ■ v. 

s=sv.' ■ 9'~'to23 

390 

z=3+b.i'i^32 ■ e-DSLi 

■:'2490 tr=by 

400 

print#!5.. “b-p 

= “ ,i 5.i '::2-»-t-='^3 

410 

print#5.. chrï 

131 :t;chr$<t 

420 

print#15.. “b—p 

^ “ .: 5.i ■::21+t* 

430 

P r i rit#5 .. chirï 

tr >chr$ ':;sr 


440 f or-.=i.= 1 t o7 ■ readb • p r i .■ chr^^ <b >• nextci. 

4!:50 p r i rrb#5c:hr:ï <t.e-'+-1 >; ■ p r i Tit# 15,. u2 ■ " bï j 0vbv:=:. 
460 c 1 oseSi.. 8.. S ^ c I ose 15.. 8.. 15 = e r.d 
470 ren') 

480 rem 

490 pr i Ttt-# 15 "b—p ■ “5z= 9et-#5.. by ■ by ^=by i'+chr^ OS !: 

2Ü500 z=z+l ■ if'by^=chrif ':;0 >t-he'nby~0 = 9ot-o2520 
510 b 1-1 = -3. s c < b y !:> 


?. 5 2! 0 t'- e b- u. r"' rt 
ï:530 rem 
^:540 rerfi 

23^(3 t.”5 ■ s=l - c.C”0 ■ d=i'nt. < Cee-bb y/234 >+l ' te^t-e+d 
■ÜI560 p r i Tit'# 15.' " b"-^.' "0.! t-.■ s ' 'b-b-^b-' 3e=e 
i57£i iï'ip u.t# 1 5 .■ a .■ b$ .■ c .■ f = i f a=65t-he'nt~c = s=f ■ 9ob.o2560 
2580 f■ o 3.3. = 1 b- o d 


2590 

dd=l ^ 

print #15.. 

''ü.2 = “5.; 0.: t 

2600 

print#15.- “b-a = 

“ 0.: ts 

2610 

i = i + l 

=ifi<>2tb 

en9Qto2590 

2620 

i=0 = i 

npu.b#i5.< -3. 

.. b$.. c.. e ^ if 

2630 

P t-'- i Tit:- 

#15.. “b-p ^ 

''5.:0.: -prin 

2640 

P r- i rib. 

#5.. chri"- ':;p 

eek ■;:bb+cc 

2650 

i fdd> 

254then26 

80 


2b60 i f■ ee=bb+ccb-h€-Ti2690 
2 6 r 0 9 i;;i b- o2640 

2680 p r i Tib-tt 15” u2 • ”5.! 0 i b-'s • b-=c • s—e • nexbaa 
2690 Pr i nt# 15..'*b-p ^ " 50.: = p r irib.#5.. chr$ <0 >.: chrï Cdd > 
2700 p r i Ti'b# 15 .■ " u.2 • *' 5 .i 0.! t s • reb-u.r n 
2710 rem 
2720 re mi 

2 2 30 d i mi t!96 .■ ho ) • d i m br '36 y 

2740 f'ora=lb-oho • a# '36.. a >="." - riext-iü. = reb-u.rri 

2750 rem 


Rta3.21.. 191 255,. 255.. 255.. 128,. 0,. 1 .. 128,. 0,. 1.. 12e 
3.b.a0.. 1.. 191 .. 128.. 1 .. 152.- 128.. 9.. 152,. 8.- 25.. 152.. 0 
vba25.. 158.. 0.- 61 .. 152.. 231 .■ 153153.. 182.. 217 153 
3.b.a 182.. 217.. 153.. 182.. 21 7.. 188.. 230.. 205 ..128 .■ 01 
3.ta 128.. 0.. 1,-128.. 0.. 1 ,. 128.. 01 .. 128.. 0.. 1 ,. 128.-0.. 1 
3.b-a255.. 255.. 255131.-8.. 1.- 0.. 0.. 255.. 25bi0.. 0 .■ 67 
3.ta 1 1 1.- 114 121 .. 32.. 32.. 32.. 32.. 32.. 32.. 32 .. 32.. 86 
3.ta49 .■ 46,. 49.. 0,. 0,. 0.. 0.. 1.. 8.. 86,. 4.. 7 .■ 12.- 0 
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Leerprogramma’s 


Na negen echte aflevering is de vaart er wat betreft het zelf maken van leerprogram¬ 
ma’s enigszins uit. De serie zelf leerprogramma’s maken wordt dan ook in dit nummer 
afgesloten, maar dat betekent niet dat Commodore Info nu geen aandacht meer zal 
besteden aan het gebruik van de Commodore modellen in het onderwijs. 


Zelf Leerprogramma’s maken 
in BASIC (Slot) 

H et zelf maken van software ter ondersteuning van het leerproces is geen 
onmogelijke opgave. Wij hopen dat deze stelling door onze serie artike¬ 
len over dit onderwerp voldoende bewezen is. We sluiten de reeks nu af. Dus 
geen nieuwe programma’s deze keer. Op een later tijdstip nemen we de 
draad wellicht weer op. We gaan dan verder met het presenteren van voor¬ 
beelden van educatieve software voor de leerkracht die door zelf te pro¬ 
grammeren, meer uit de computer wil halen. 



Vergissing 

In deze laatste aflevering aandacht 
voor twee dingen. Ten eerste hebben 
wij nog iets goed te maken. In het vo¬ 
rige nummer van Commodore-Info 
zijn door een vergissing bij de lay-out 
de listing bij het artikel weggevallen. 
We zijn ze domweg vergeten in te 
voegen. We halen de programmalis- 
tings altijd rechtstreeks uit het geheu¬ 
gen van de computer. Op deze wijze 
weten we zeker, dat de afgedrukte lis¬ 
ting correct is en zeker zal werken op 
uw computer. 

Bij het opmaken van een listing als 
tekst, wil er nog wel eens iets mis¬ 
gaan. Het opmaakprogramma kent 
soms sommige karakters niet en zet 
er andere voor in de plaats. Als we 
werken met een rechtstreekse uit¬ 
draai van het gepresenteerde pro¬ 
gramma, kennen we die problemen 
niet. Echter is het dan opletten gebla¬ 
zen om ervoor te zorgen, dat tekst en 
listing samen bij de opmaakredactie 
aankomen. Dat ging de vorige keer 
even mis. Onze excuses daarvoor. 

U krijgt dus alsnog de listings van de 
programma’s van de vorige afleve¬ 
ring. De eerste is van de autorun utili- 
ty, waarmee u een programma op dis¬ 
kette zelf startend kan maken. Het 
tweede is van een programma, waar¬ 
mee u probleemloos programma’s 
vanaf de diskette kunt iaden en auto¬ 
matisch laat starten. 

Voor nadere details moet u de be¬ 
schrijving in de vorige Commodore- 
Info maar eens (her)- lezen. 

Alsnog veel plezier ermee. 


Project 

Dan even aandacht voor een tweede 
punt. Zoals u weet draagt Commodo- 
re-lnfo het onderwijs een warm hart 
toe. We besteden altijd ruim aandacht 
aan schoolse zaken als het om com¬ 
puters gaat. 

In de komende maanden zult u onge¬ 
twijfeld meer horen over het project, 
dat de mensen van Sala Communica¬ 
tions (de makers van o.a. dit blad) wil¬ 
len starten. Wij willen nu alvast een 
tipje van de sluier oplichten en u iets 
vertellen over dit unieke project. Doel¬ 
groep is het onderwijs in de meest 
brede zin des woords. 

Doel is het stimuleren van computer¬ 
gebruik in het onderwijs. Zowel op 
management- als ook op klasse-nivo. 
Het gaat erom, dat de mensen in het 
onderwijsveld meer vat krijgen op het 
fenomeen computer. Door middel van 
het opzetten van informatie- en soft- 
warebanken, het organiseren van 
scholing- en oriëntatiebijeenkomsten, 
het verschaffen van gerichte informa¬ 
tie, software en wellicht hardware wil¬ 
len we de computer de scholen bin¬ 
nen halen en in andere gevallen de 
computer een nieuw leven inblazen 
cq. het stof eraf blazen. Kortom, de 
computer moet binnen het onderwijs 
de plaats krijgen, die hij verdient. Om 
een indicatie van onze bedoelingen te 
geven: Als de verwachtingen aange¬ 
ven, dat het nog wel vijf tot zes jaar 
kan duren voordat de computer een 
algemeen aanvaard hulpmiddel is bin¬ 
nen het onderwijs, dan willen wij er- 
i' voor zorgen dat dat binnen twee jaar 
het geval is. 

Achter de schermen wordt nu reeds 


hard gewerkt om alle gegevens uit te 
werken tot een bruikbare strategie. 
Een strategie die moet leiden tot een 
eerste aanzet van een zinvol en effi¬ 
ciënt gebruik van computers in het on¬ 
derwijs. Binnenkort zult u hierover 
meer vernemen. 

B. Munniksma 


Listing AUTORUN 


100 

REH AUTORUN 

110 




120 

FOR 

I = 49152 TO 49407 

130 

READ 

A:POKE I,A 

140 

Z=Z+A:NEXT I:PRINT Z 

150 

DATA 

169, 

169, 141, 167, 2 

160 

DATA 

169, 

0, 141, 168, 2 

170 

DATA 

169, 

133, 141, 169, 2 

180 

DATA 

169, 

157, 141, 170, 2 

190 

DATA 

169, 

88, 141, 171, 2 

200 

DATA 

169, 

32, 141, 172, 2 

210 

DATA 

169, 

94, 141, 173,2 

220 

DATA 

169, 

166, 141, 174, 2 

230 

DATA 

169, 

32, 141, 175, 2 

240 

DATA 

169, 

142, 141, 176, 2 

250 

DATA 

169, 

166, 141, 177, 2 

260 

DATA 

169, 

76, 141, 178, 2 

270 

DATA 

169, 

174, 141, 179, 2 

280 

DATA 

1 69, 

167, 141, 180, 2 

290 

DATA 

169, 

96, 141, 181, 2 

300 

DATA 

169, 

167, 141, 2, 3 

310 

DATA 

169, 

2, 141, 3, 3 

320 

DATA 

169, 

167, 141, 193, 0 

330 

DATA 

169, 

2, 141, 194, 0 

340 

DATA 

169, 

8, 141, 186, 0 

350 

DATA 

32, 68, 229, 165, 186 

360 

DATA 

208, 

3, 76, 19, 247 

370 

DATA 

201, 

3, 240, 249, 144 

380 

DATA 

95, 169, 97, 133, 185 

390 

DATA 

164, 

183, 208, 3, 76 

400 

DATA 

16, 247, 32, 213, 243 

410 

DATA 

32, 213, 192, 165, 186 
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Leerprogramma’s 


420 

DATA 

32, 12, 237, 165, 185 


430 

DATA 

32, 185, 237, 160, 0 


440 

DATA 

32, 142, 251, 165, 172 


450 

DATA 

32,221,237,165,173 


460 

DATA 

32,221,237,32,209 


470 

DATA 

252, 176, 22, 177, 172 


480 

DATA 

32,221,237,32,225 


490 

DATA 

255, 208, 7, 32, 66 


500 

DATA 

246, 169, 0, 56, 96 


510 

DATA 

32, 219, 252, 208, 229 


520 

DATA 

32,254,237,36,185 


530 

DATA 

48, 17, 165, 186, 32 


540 

DATA 

12, 237, 165, 185, 41 


550 

DATA 

239,9,224,32,185 


560 

DATA 

237, 32,254,237,24 

570 

DATA 

32, 226, 252, 162, 10 


580 

DATA 

160,9, 32,240,255 


590 

DATA 

162, 0, 189, 234, 192 


600 

DATA 

32,210,255,232,224 


610 

DATA 

20, 208, 245, 96, 67 

620 

DATA 

79, 77, 77, 79, 68 

/ 

630 

DATA 

79, 82, 69, 45, 73 

/ 

640 

DATA 

78,70,79,32,32 

650 

DATA 

49, 57, 56, 56, 0, 0 

1 



Listing AUTO-LADER 


1 

rem 


xxxx 

165 

getfrS, x$:if x$="" then x$=chr$(0) 

2 

rem 

XX leerprogramma's in basic 

X X 

170 

if asc{x$):0 then 210 

3 

rem 

XX 

X X 

175 

print#15, "b-p"; 2; x*32 + 5 

4 

rem 

XX auto-lader voor diskette 

X X 

180 

f$="":for y=0 to 15 

5 

rem 

X X 

XX 

185 

get#8, x$:if x$:"" then x$:chr$(0) 

6 

rem 

XX (c) 1968 bob rumnlKsma 

X X 

190 

if asc(x$):160 then 200 

7 

rem 

XX 

XX 

195 

f$:f$+x$:next y 

8 

rem 

XX voor corrmcidore-info 

XX 

200 

p$(d):f$:f$=" ":d=d+l 

9 

rem 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

205 

if d>14 then d:14:goto 215 

10 

; 



210 

next x: if toO then 130 


30 rem initialiseren 

35 print chr$(14)chr$(8)chr$(147); 

40 poKe 53281, Oipoke 53280,0 
45 dim p$ (15) ; poke 646,7 
50 print"Geduld , "iprint ct)r$(19); 

55 ki$:chr$(176)+chr$(96)+chr$C174) 

60 k2$ = chr$ (125)+chr$ (32)+cïir$ (125) 

65 k3$=chr$(173)+chr$(96)+chr$ (169) 

70 k5$:chr$(17):for i=l to 3 
75 k4$=k4$+chr$(96) 

60 K5$=k5$+cïir$ (157)-.next 
85 k$=ki$+k5$+k2$+k5$+k3$ 

90 ne$:chr$(19);for i=l to 20: 

95 ne$=ne$+chr$(17):next 
100 k6$;left$(kl$, 2)+k4$+k4$+right$(kl$, 2) 
105 k7$:left$(k3$, 2)+k4$+k4$+right$(k3$, 2) 
110 : 

115 rem directory inlezen 

120 open 15, 8, 15, "10": open 8, 8, 2, "#" 

125 dr0:t:18:s=l 

130 print#15, "ul"; 2; 0; t; s 

135 print#15, "t)-p";2;0 

140 get#8, x$:if x$:"" then x$=cïir$(0) 

145 t = asc(x$) 

150 get#8, x$:if x$="" tlien x$=chr$(0) 

155 s=asc(x$): for x:0 to 7 
160 print#15, "b-p";2;xx32+2 


215 close 8:close 15 

220 dd:d/2:if dd<l tben 270 

225 if dd< >int (dd) then dd; int (dd+1) 

230 print chr$(18)"Haak een keuze:" 

235 for i=l to dd 

240 print k$;chrf(145)chr$(145)tab{20)k$ 

245 next:for i:l to dd 

250 print left$ (ne$, 3«i) tab(l) ; 

255 print chr$(i + 192); tab(3)p$(i); 

260 print tab(21)chr$(i + 192+dd) ; 

265 print tab(23)p$(i+dd);next:print 
270 print k6$ 

275 print chr$(125)" RETURN "chr$(125); 
280 print" andere diskette":print k7$; 

285 get t$:if t$r"" then 285 
290 ts=asc (t$) : if ts=13 then rtin 
295 ts=ts-64:if ts<l or ts>d then 285 
300 : 

305 printchr$(147)left$(ne$, 13); 

310 print tab(10)"Even geduld graag. . . " 
315 print:print tab(10)chr$(18)p$(ts); 

320 print chr$(146)" wordt geladen" 

325 poke 646, 0:print chr$(19); 

330 print"load"chr$(34)p$(ts)chr$(34) ", 8" 
335 print left$ (ne$, 6) "run" 

340 poke 631, 19:poke 632, 13 
345 poke 633, 13:poke 198, 3 
350 end 
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Checksum C-64 

Syntax Checksum 


Het overtikken van een listing kan een heel karwei 
zijn en als u een beetje normaal mens bent dan 
maakt u daarin beslist een aantal fouten. Nu is niets 
moeilijker om de fouten uit je eigen werk te halen. Al 
geruime tijd heeft Jan Bodzinga hiervoor een zgn. 
Checksum-programma geschreven. Om de vele 
nieuwe lezers van Commodore-info te helpen volgt 
hieronder nog een keer een volledige uitleg over de 
werking van dit programma, waarmee het, hoe 
vreemd dat misschien ook lijkt, echt mogelijk is om 
met behulp van dit programma de fouten in elke door 
ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt hem 
voordat u het programma RUNt op een diskette of 
cassette. 

2. U tikt het RUN commando in. Mocht het program¬ 
ma de boodschap 'FOUT in dataregelsl’ geven dan 
heeft u een fout bij het overtikken gemaakt. Herstel 
dan de fout en SAVE de verbeterde versie. Mocht het 
programma met de boodschap 'data is weggezet 
checksum testen met sys...'komen dan is tot dusver 
alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW com¬ 
mando geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic 
geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de ge¬ 
hele listing opnieuw te gaan intikken. Als u nu een 
programma op fouten wilt gaan controleren dan kunt 
u dat in het geheugen laden(wel eerst het checksum 
programma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 
49152(c-64) of sys 1536 (c-16 en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regelnum¬ 
mers over het scherm met getallen erachter. Dezelf¬ 
de lijst staat ook achter elk door ons geplaatste pro¬ 
gramma. Wijkt nu een nummer achter een regelnum¬ 
mer af van het nummer dat in het blad staat dan 
heeft u in die regel iets anders ingetikt dan er in het 
blad stond. U kunt de stroom getallen d.m.v. de 
RUN/STOP toets pauzeren en weer vervolgen met 
de F1 of F7 toets. Het is uitermate belangrijk dat u 
goed met dit programma overweg kunt en mocht u 
het niet goed werkend krijgen bel dan gerust even 
met onze listingservice telefoonlijn. (Maandag 17.00 - 
21.00 uur. Telefoonnummer 02155-25162.) 

1 rem ****************************** 

★ ★ ★ 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new 

4 rem blijft dit programma in het ge 

5 rem heugen. laad het te testen pro 

6 rem gramma en tik daarna sys 49152 

7 rem ****************************** 

10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelez 


30 pokei,a;i=i+l:b=b+a:goto20 

40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels!":b=0 
; end 

50 poke4 9184,148:poke49185,192 

55 i=49300 

60 read a: ifa<0then80 

70 pokei, a : b=a-l-b : i=i-l-l: goto60 

80 if b<>20068thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0 :end 

90 prinf'data[SPACE]is[SPACE]weggezet 

tt 

95 print"checksum[SPACE]testen[SPACE] 
met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73, 
192 

120 data 32,73,192,208,1,96,32,225,255 
, 208 

130 data 3,76,116,164,32,81,192,32,73, 

192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 

77,163 

180 data 96,162,0,189,123,192,240,6,32 

, 210 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32, 

0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

** EINDE LISTING checksum 64 ** 


REGEL 

1 

249 

REGEL 

140 

96 

REGEL 

2 

84 

REGEL 

150 

96 

REGEL 

3 

105 

REGEL 

160 

127 

REGEL 

4 

2 

REGEL 

170 

71 

REGEL 

5 

246 

REGEL 

180 

223 

REGEL 

6 

152 

REGEL 

1 90 

73 

REGEL 

7 

249 

REGEL 

200 

79 

REGEL 

10 

157 

REGEL 

210 

109 

REGEL 

20 

64 

REGEL 

220 

106 

REGEL 

30 

38 

REGEL 

230 

225 

REGEL 

40 

57 

REGEL 

240 

16 

REGEL 

50 

14 

REGEL 

250 

163 

REGEL 

55 

251 

REGEL 

260 

92 

REGEL 

60 

192 

REGEL 

270 

22 

REGEL 

70 

42 




REGEL 

80 

244 




REGEL 

90 

245 




REGEL 

95 

237 




REGET, 

1 on 

1 8 3 




REGEL 

110 

158 




REGET. 

120 

232 




REGEL 

130 

183 


















Checksum C 16 


Checksum cl 6 


rem ****************************** 

■kick 

rem syntax.checksum 
rem voor c-16 & plus/4 
rem 

rem syntax testen met 'sys 1536' 
rem 

rem v.851128.16 jan bodzinga 

rem ****************************** 

kifif 

i=1536 :rem beginadres 

reada:ifa>=0then pokei,a:i=i+l:got 
olOO 

prinf'data[SPACE]is[SPACE]weggezet 


EINDE LISTING checks16 


REGEL 10 
REGEL 20 
REGEL 30 
REGEL 40 
REGEL 50 
REGEL 60 
REGEL 70 
REGEL 80 
REGEL 90 
REGEL 100 
REGEL 110 
REGEL 120 
REGEL 130 
REGEL 200 
REGEL 210 
REGEL 220 
REGEL 230 
REGEL 240 
REGEL 250 
REGEL 260 
REGEL 270 
REGEL 280 


REGEL 290 
REGEL 300 
REGEL 310 
REGEL 320 
REGEL 330 
REGEL 340 
REGEL 350 
REGEL 360 
REGEL 370 
REGEL 380 
REGEL 390 
REGEL 400 
REGEL 410 
REGEL 420 
REGEL 430 
REGEL 440 
REGEL 450 
REGEL 460 
REGEL 470 
REGEL 480 


120 print"cheksum[SPACE]printen[SPACE] 

met[SPACE]'sys[SPACE]1536' 

130 end 

200 data 165, 43,166, 44,133 

210 data 31,134, 32,169,147 
220 data 32,210,255,160, 0 

230 data 240, 3, 32, 73, 6 

240 data 32, 73, 6,208, 1 

250 data 96, 72,152, 32,131 

260 data 6,168,104,234, 32 

270 data 81, 6, 32, 73, 6 

280 data 240, 12,201, 32,240 

290 data 247, 24,101,252,133 

300 data 252, 76, 37, 6,166 

310 data 252,169, 0,132,253 

320 data 32, 95,164,169, 13 

330 data 32,210,255,164,253 
340 data 76, 17, 6,200,208 

350 data 2,230, 32,177, 31 





















PRINT-OUT C 64 met o.a. Cset en Penalty 

Cset-Desiqner c64 




— 




Met behulp van dit programma is het mogelijk zelf 
karakters te ontwerpen of de karakterset te verande¬ 
ren. De desbetreffende karakterset die door de ge¬ 
bruiker kan worden ontworpen staat op adres 
$2000=#8192 Voor dit Programma treft U een zgn 
loader aan : ’ioader cset-d’, als U dit programma runt 
wordt het hoofdprogramma geladen. Dit is gedaan 
om het starten van het programma wat makkelijker te 
maken, het wordt namelijk op een andere plaats in 
het geheugen geladen. N.L.: $4001 oftewel adres 
16385. 

Na het opstarten ziet U een hoofdmenu met hierin de 
volgende punten: 

1. karakterset ontwerpen 

2. karakterset wegschrijven 

3. karakterset laden 

4. karakterset wissen 

5. Directory 

1. Karakterset ontwerpen 

De karakterset die op dat moment op adres 8192 
staat, zal op de rechterhelft van het scherm verschij¬ 
nen en het werkgebied vanzelf sprekend op de over¬ 
gebleven linker helft. 

U ziet dat de cursor op staat. Deze cursor is door 
de hele tekenset te bewegen met behulp van de cur- 
sortoetsen. Als de cursor op het teken staat dat U wilt 
gaan veranderen, drukt U op return. 

Tijdens het bewerken van een teken is de tekenset 
op de rechterhelft veranderd in de normale karakter¬ 
set van de commodore 64. Sommige karaktersets 
hebben wel eens een ander teken staan ep de plaats 
van de tekens waar de cursor uit het werkgebied uit 
bestaat. N.l. de schermcodes: 76, 79, 80, 122 en nog 
een aantal tekens die de lijnen om het werkgebied 
vormen. 

Het teken van uw keuze zal vergroot in het omlijnde 
werkgebied verschijnen. Hierna ziet U in de linkerbo¬ 
venhoek de cursor. 

De toetsen die tijdens het bewerken zijn te gebruiken 
zijn: 

s = teken onderste boven 

r = tekens kopiëren naar andere schermccode’s en 
deze worden tegelijk de inverse karakters van deze 
te kopiëren tekens. 

q = guit (de tekst wordt gewist en er wordt terugge¬ 
keerd naar het hoofdmenu. 

= teken in de tekenset plaatsen 
- = teken negatief 
spatie = verwijder bit 

home = cursor gaat naar de uitgangspositie 
/home = het teken wordt gewist 
= een bit wordt geplaatst 
naar links = hoofdmenu 

En bij deze toetsen worden natuurlijk ook de cursor 
toetsen normaal gebruikt. 

2. Karakterset saven. 

Na het invoeren van de Filenaam zal de karakterset 
geheel naar disk worden gesaved. Deze set kan 
weer worden geladen met: load "naam",8,1 U kunt 


hem dan weer te zien krijgen door het intypen van: 
poke 53272,24 

3. Karakterset laden. 

Als U de juiste filenaam invoert, zal de karakterset 
die U bijvoorbeeld nog niet af heeft, worden ingela¬ 
den. U kunt nu weer doorgaan door in het hoofdmenu 
een "1" in te toetsen. Er kunnen ook karaktersets 
worden ingeladen die niet met dit programma zijn ge¬ 
maakt als ze maar op het adres $2000 zijn wegge¬ 
schreven. 

4. Karakterset wissen. 

Het wissen van een karakterset is erg eenvoudig, ge¬ 
woon op q drukken en alles is verdwenen. 

5. Directory. 

Het is een directory waar alleen de namen op het 
scherm worden weergegeven. Maar U kunt wel een 
begin en een eindadres van een file te weten komen. 
U handeld dan als volgt: Als we een directory, of een 
gedeelte daarvan op het scherm krijgen dan drukt U 
op return. Er zal dan een pijl verschijnen achter de 
eerste filenaam. Met de cursortoetsen kunt U deze 
pijl bewegen tot hij achter de juiste file staat. U drukt 
dan nogmaals op de returntoets en het startadres, 
zowel hexadecimaal als decimaal verschijnt achter 
de pijl. Indien U nu terug wilt naar het hoofdmenu 
drukt U op de spatiebalk. 

Door al deze Informatie zouden we haast de naam 
van al dit schoons vergeten te vermelden. Het is de 
Heer P.J. van der Mespel uit Den Haag. 

10 dimz(64),n$(100) 

20 r=49152:al=r-r28;as=r4-68 

30 r$=chr$(13):o$=chr$(0):b=53280:sc= 

53272:hx$="0123456789abcdef" 

40 s$="[40xSPACE]" 

50 t(l)=0:t(2)=l:t(3)=40:t(4)=41 

60 s (l)=79:s(2)=80:s(3)=76:s(4)=122 

70 fori=0to22:readq:poke52992+i, q:nex 

t 

80 fori=lto8:readvb(i):next 

90 fori=rto49263:readj:pokei,j:next 

100 rem kopieer cset naar $2000 

110 poke56334,peek(56334)and254 

120 pokei,peek(1)and251:sys52992 

130 pokei,peek(1)or4 

140 poke56334,peek(56334)orl 

150 rem hoofdmenu 

160 printchr$(142)chr$(8)chr$(147); 

170 pokeb,11:pokeb+l,11:pokesc, 21 

180 ford=lto24 

190 print"[CTRL-9][CTRL-2][SPACE][COM- 

8][SPACE][COM-5][SPACE][COM-4][34x 
SPACE][COM-5][SPACE][COM-8][SPACE] 
[CTRL-2][SPACE]"; 

200 nextd 

210 print"[HOME][CTRL-2][CTRL-9]"s$"[S 

PACE][COM-8]"left$(s$,38)"[CTRL-2] 
[2xSPACE][COM-8][SPACE][COM-5]"lef 
t$(s$,36) 

220 print"[HOME]"tab(10)"[4xCRSR-DOWN] 

[COM-8]h[SPACE]o[SPACE]o[SPACE]f[S 
PACE]d[SPACE]m[SPACE]e[SPACE]n[SPA 
CE]u[CRSR-DOWN]" 














680 ifa$="q"thenll70 
690 ifa$=r$thenl020 
700 ifa$="-"thengosubll30 
710 ifa$="[SPACE]"then930 
720 ifa$="[HOME]"then990 
730 ifa$="[SHIFT-CLR]"thengosub950:got 
o990 

740 ifa$=chr$(133)then970 
750 ifa$="[CRSR-UP]"theny=-80:gotoSOO 
760 ifa$="[CRSR-DOWN]"theny=80:gotoSOO 
770 ifa$="[CRSR-RIGHT]"theny=2;gotoSOO 
780 ifa$="[CRSR-LEFT]"theny=-2:gotoSOO 
790 goto640 

800 x=x+y:ifx<porx>1800thenx=x-y:goto6 

40 

810 d%=(x-p)/80 

820 ifp+d%*80+14<xthenx=x-y 
830 ifx<p+d%*80thenx=x-y 
840 fore=lto4:g=0 

850 ifpeek(x+t(e))andl28theng=128 

860 pokex+t(e),s(e)+g 

870 nexte 

880 fore=lto4:g=32 

890 ifpeek(x-y+t(e))andl28theng=160 

900 pokex-y+t(e),g 

910 nexte 

920 goto640 

930 rem spatie 

940 fore=lto4:pokex+t(e),32:nexte:y=2: 
gotoSOO 

950 rem clr-char 

960 print"[HOME][5xCRSR-D0WN]:forcl= 
ltol6;print"[CRSR-RIGHT][16xSPACE] 
":nextcl:return 
970 rem plaats bit 

980 fore=lto4:pokex+t(e),160:nexte:y=2 
:gotoSOO 

990 rem cursor > home 

1000 fore=lto4:g=32;ifpeek(x+t(e))andl2 
8theng=160 

1010 pokex+t(e),g:nexte:x=p:goto620 
1020 print"[HOME]plaats[SPACE]karakter[ 
SPACE]op[SPACE]nummer"cn"?" 

1030 getj$:ifj$<>"j"andj$<>"n"thenl030 
1040 ifj$="j"thenl080 

1050 print"[HOME]"s$"[HOME]voer[SPACE]s 
cherm-code[SPACE]in[SPACE]>";;1=3: 
gosubl530 

1060 cn=val(f$):ifcn=>0andcn<256thenl08 


printtab(8)"[CRSR-DOWN]!.[SPACE]ka 
rakterset[SPACE]ontwerpen" 
printtab(8)"[CRSR-DOWN]2.[SPACE]ka 
rakterset[SPACE]wegschrijven" 
printtab(8)"[CRSR-DOWN]3.[SPACE]ka 
rakterset[SPACE]laden" 
printtab(8)"[CRSR-DOWN]4.[SPACE]ka 
rakterset[SPACE]wissen" 
printtab(8)"[CRSR-DOWN]5.[SPACE]di 
rectory" 

print"[5xCRSR-DOWN][CTRL-9][CTRL-2 
][SPACE][COM-8][SPACE][COM-5]"left 
$(s$,36)"[COM-8][SPACE][CTRL-2][2x 
SPACE][COM-8]"left$(s$,38)"[CTRL-2 
] "s$ 

print"[6xCRSR-UP]"tab(8)"[COM-8]to 
ets[SPACE]uw[SPACE]keuze[SPACE]>[S 
PACE][CRSR-LEFT]"; 

poke204,0:getk$:ifk$<"1"ork$>"5"th 
en300 

ke=val(k$):poke204,1:onkegoto320,1 
390,1390,1510,1660 
rem karakterset ontwerpen 
pokesc,24 

pokeb,0:pokeb+1,0:print"[COM-6][SH 
IFT CLR]"; 

print"[4xCRSR-DOWN][CRSR-RIGHT][16 
xCOM-I]" 

ford=ltoI6:print"[COM-L][16xSPACE] 
[COM-K]":nextd 

print"[CRSR-RIGHT][16xCOM-U][HOME] 


p=I090:o=-l;q=p 
forn=qtoq+10:ifn>2012then410 
c=c+l:poken,c:nextn:q=q+40:goto390 
x=p:pokex,128 
geta$:ifa$=""then420 
ifa$=r$thenpokeso,21:goto560 
ifa$="[CRSR-UP]"theny=-40:gotoSlO 
ifa$="[CRSR-DOWN]"theny=40:gotoSlO 
ifa$="[CRSR-RIGHT]"theny=l:gotoSlO 
ifa$="[CRSR-LEFT]"theny=-l:gotoSlO 
ifa$="r"thenpokesc,21:gosubl280 
ifa$="_"thenl60 
goto420 

x=x+y:ifx<porx>2012thenx=x-y:goto4 
20 

c%=x/40-27:ifx<(p+c%*40)thenx=p+(c 
%-l)*40+10:y=-30 

ifx>(p+c%*40+10)thenx=p+(c%+l)*40: 


print"[HOME]"s$:gotolOSO 
pokesc,24 

foral=0to7:v=0:forw=7to0step-l 
ifpeek(1225+al*80+(7-w)*2)andl28th 
env=v+2 •'w 

nextw:pokecn*8+8192+al, v:nextal 
print"[HOME]"s$:p=1090:gosub950:go 
to410 

rem negatief 

fore=0to7:forf=0to7:fort=lto4 
pokel225+e*80+f*2+t(t), (peek(1225+ 
e*80+f*2+t(t))+128)and255 
nextt,f,e:return 
rem quit 

print"[HOME]weet[SPACE]u[SPACE]het 
[SPACE]zeker[SPACE]?" 
getj$:ifj$<>"j"andj$<>"n"thenll90 
if j $="j"thenrun 

print"[HOME]"s$;pokesc,24:goto640 
rem ondersteboven 

fore=lto4:g=32:ifpeek(x+t(e))andl2 


1070 

1080 

1090 

1100 


goto420 

pokex,(peek(x)+128)and255:gosub950 
c%=x/40-27:cn=x-(p+c%*40)+c%*ll 
ch=1225:fora=0to7:forf=7to0step-l 
ifpeek(on*8+8192+a)and2^fthengosub 
610 

ch=ch+2:nextf:ch=ch+64;nexta:p=122 
5:x=p:goto620 

fore=lto4:pokech+t(e),160;nexte:re 
turn 

fore=lto4:g=0:ifpeek(p+t(e))andl28 
theng=128 

pokep+t(e),s(e)+g:nexte 
geta$:ifa$=""then640 
ifa$="_"thenl60 

ifa$="r"thengosubl280 rpokesc,21 
ifa$="s"thengosubl220 


1110 

1120 


1130 

1140 

1150 


1160 

1170 

1180 


1190 

1200 

1210 

1220 

1230 
































8theng=160 

1720 

fory=0tol5:get#2,x$ 

i 1240 

pokex+t(e),g:nexte 

1730 

ifx$=""thenx$=o$ 

i 1250 

t=0:fore=0to7:forf=0to7:z(t)=peek( 

1740 

ifasc(x$)=160thenl770 


1225+e*80+2*f):t=t+l:nextf,e:gosub 

1750 

m$=m$+x$ 


950 

1760 

nexty 

1260 

t=0:fore=0to7;forf=0to7;forh=lto4 

1770 

ifm$="..."thenl810 

1270 

pokel799-e*80-2*f+t(h),z(t) rnexth; 

1780 

foru=ltolen(m$) 


t=t+l:nextf,e:return 

1790 

ifasc(mid$(m$,u,1))thenn$(tl)=m$:t 

; 1280 

rem inverse copieeren 


l=tl+l:m$="":gotol810 

; 1290 

print"[HOME]"s$"[HOME]vanaf[SPACE] 

1800 

nextu 


welk[SPACE]karakter[SPACE](schermc 

1810 

iftl>100thenl830 


ode)?";:1=3:gosubl530:cl=val(f$) 

1820 

nextx:ift<>0thenl680 

1300 

ifcl<0orcl>255thenl290 

1830 

close2:pokesc,23 

1310 

print"[HOME]"s$"[HOME]t/m[SPACE]we 

1840 

print"[SHIFT-CLR]Inhoud[SPACE]van[ 


Ike[SPACE]schermcode[SPACE]?";:gos 


SPACE]deze[SPACE]diskette:[HOME][C 


ubl530:c2=val(f$) 


RSR-DOWN]" 

1320 

ifc2<0orc2>255orc2<clthenl310 

1850 

forh=ltotl 

1330 

print"[HOME]"s$"[HOME]naar[SPACE]w 

1860 

printn$(h):ifh/21=int(h/21)thend0= 


elke[SPACE]schermcode[SPACE]?";:go 


dO+1:gosubl880 


subl530:c3=val(f$):print"[HOME]"s$ 

1870 

nexth:d0=d0+l 

1340 

ifc3<0orc3>255thenl330 

1880 

geta$:ifa$=""thenl880 

1350 

pokesc,24:forcp=cltoc2 

1890 

ifa$=r$thenp=1121:co=l+d0*21:gotol 

1360 

forkc=0to7 


930 

1370 

poke8192+8*c3+kc,255-peek(8192+8*c 

1900 

ifa$="[SPACE]"andh<tlthenprint"[SH 


p+kc) 


IFT CLR][CRSR-DOWN]":return 

1380 

nextkc:c3=c3+l:nextcp:return 

1910 

ifa$="[SPACE]"thenforcl=ltotl;n$(c 

1390 

rem eset laden/saven 


1)="":nextcl:closel5:gotol60 

1400 

print"[SHIFT-CLR][3xCRSR-DOWN]file 

1920 

gotol880 


naam:";:1=16:gosubl530:ll=len(f$): 

1930 

pokep,31 


print 

1940 

getb$:ifb$=""thenl940 

1410 

openis, 8, ISrcloselS: if st=-12 8t.henl 

60 

1950 

ifb$="[CRSR-DOWN]"theny=40:goto200 

1420 

openl5,8,15,"iO":input#15,a,b$:clo 

1960 

ifb$="[CRSR-UP]"theny=-40:goto2000 


sel5 

1970 

ifb$=r$then2040 

1430 

ifathenprint"[CRSR-DOWN]"b$;print" 

1980 

ifb$="[SPACE]"thenpokep,32:a$="[SP 


[CRSR-DOWN]druk[SPACE]op[SPACE]een 


ACE]":gotol900 


[SPACE]toets ...":pokel98,0:waitl98 

1990 

gotol940 


,1:gotol60 

2000 

p=p+y:ifp>1921orp<1121thenp=p-v:go 

1440 

poker+18,11 


tol930 

1450 

fort=ltoll:poke(r+t+1),asc(mid$(f$ 

2010 

co=((p-1)/40)-27+21*d0 


,t,1));nextt 

2020 

ifn$(co)=""thenco=co-l:p=p-y:gotol 

1460 

poker+19,0;poker+20,32 


930 

1470 

on(ke-1)gotol490,1480 

2030 

pokep-y,32:gotol930 

1480 

sys al;gotol60 

2040 

open2,8,2,n$(co) 

1490 

11=11+2:poker+18,11 

2050 

get#2,1$,h$:close2 

1500 

poker+21,255:poker+22,39:sys as:go 

2060 

sy=asc(h$+o$)*256+asc(l$+o$):he$=" 


tol60 


":sl=sy 

1510 

run:rem karakterset gewist 

2070 

fordt=3to0step-l 

1520 

rem get-subroutine 

2080 

d%=sy/16^dt:sy=sy-d%*16^dt 

1530 

t=0;c$="":f$="" 

2090 

he$=he$+mid$(hx$,d%+l,1) 

1540 

getc$:ifc$=""thenl540 

2100 

nextdt 

1550 

fors=lto8 

2110 

input#15,a,b$:ifathenpoke214,co-21 

1560 

ifasc(c$)=vb(s)thenl540 


*d0:print:printtab(20);b$:gotol930 

1570 

nexts 

2120 

pokG214,co-21*d0:print:printtab(20 

1580 

ifc$=chr$(20)thenl620 


)"#"sl"=[SPACE]$"he$ 

1590 

ifc$=r$thenreturn 

2130 

gotol930 

1600 

t=t+l:ift>lthent=l:gotol540 

2140 

rem mt-kopieerroutine 

1610 

printc$;:f$=f$+c$:gotol540 

2150 

datal60,8,162,0,189,0,208,157,0,32 

1620 

t=t-l:ift<0thent=0:gotol540 


,232,208,247,238,6,207,238,9,207,1 

1630 

f$=left$(f$,t) 


36 

1640 

print"[CRSR-LEFT][SPACE][CRSR-LEFT 

2160 

data208,238,96 


]";:gotol540 

2170 

rem waarden bij get-subroutine 

1650 

rem directory 

2180 

datal7,29,19,145,157,147,141,148 

1660 

openl5,8,15,"iO":opGn2,8,2,"#" 

2190 

rem mt-laden & schrijven 

1670 

t=18:s=l:tl=l:m$="":d0=-l 

2200 

data64,58,32,32,32,32,32,32,32,32, 

1680 

print#15,"b-r";2;0;t;s:print#15,"b 


32,32,32,32,32,32 


-p";2;0:get#2,x$:ifx$=""thenx$=o$ 

2210 

data32,32,16,1,8,1,8,0,66,38,67,32 

1690 

t=asc(x$);get#2,x$:ifx$=""thenx$=o 


,162,8,169,8 


$ 

2220 

datal60,0,32,186,255,173,18,192,16 

1700 

s=asc(x$):forx=0to7 


2,2,160,192,32,189,255,169 

1710 

print#15,"b-p";2;x*32+5:m$="" 

2230 

dataO,174,19,192,172,20,192,32,213 











print-out print-out print-out print-out print-out 


,255,142,21,192,140,22,192 
240 data76,108,192,0,174,19,192,134,25 
3,172,20,192,132,254,162, 8 
250 datal69,8,160,1,32,186, 255, 173, 18, 
192,162,0,160,192,32,189 
260 data255,169,253,174,21,192,172,22, 
192,32,216,255,32,231,255,96 

EINDE LISTING cset-designer ** 


regel 

10 

27 

regel 

690 

130 

regel 

20 

210 

regel 

700 

12 

regel 

30 

150 

regel 

710 

41 

regel 

40 

109 

regel 

720 

66 

regel 

50 

254 

regel 

730 

176 

regel 

60 

170 

regel 

740 

152 

regel 

70 

206 

regel 

750 

151 

regel 

80 

56 

regel 

760 

108 

regel 

90 

209 

regel 

770 

66 

regel 

100 

213 

regel 

780 

109 

regel 

110 

42 

regel 

790 

35 

regel 

120 

98 

regel 

800 

113 

regel 

130 

28 

regel 

810 

212 

regel 

140 

193 

regel 

820 

41 

regel 

150 

52 

regel 

830 

26 

regel 

160 

135 

regel 

840 

228 

regel 

170 

217 

regel 

850 

15 

regel 

180 

178 

regel 

860 

137 

regel 

190 

49 

regel 

870 

199 

regel 

200 

198 

regel 

880 

25 

regel 

210 

37 

regel 

890 

15 

regel 

220 

246 

regel 

900 

250 

regel 

230 

84 

regel 

910 

199 

regel 

240 

34 

regel 

920 

35 

regel 

250 

248 

regel 

930 

85 

regel 

260 

110 

regel 

940 

162 

regel 

270 

10 

regel 

950 

187 

regel 

280 

7 

regel 

960 

255 

regel 

290 

251 

regel 

970 

51 

regel 

300 

178 

regel 

980 

212 

regel 

310 

226 

regel 

990 

212 

regel 

320 

146 

regel 

1000 

94 

regel 

330 

191 

regel 

1010 

230 

regel 

340 

253 

regel 

1020 

145 

regel 

350 

94 

regel 

1030 

178 

regel 

360 

33 

regel 

1040 

169 

regel 

370 

141 

regel 

1050 

15 

regel 

380 

100 

regel 

1060 

172 

regel 

390 

151 

regel 

1070 

240 

regel 

400 

166 

regel 

1080 

191 

regel 

410 

74 

regel 

1090 

118 

regel 

420 

99 

regel 

1100 

218 

regel 

430 

217 

regel 

1110 

105 

regel 

440 

145 

regel 

1120 

42 

regel 

450 

102 

regel 

1130 

210 

regel 

460 

63 

regel 

1140 

11 

regel 

470 

106 

regel 

1150 

51 

regel 

480 

45 

regel 

1160 

129 

regel 

490 

131 

regel 

1170 

210 

regel 

500 

31 

regel 

1180 

27 

regel 

510 

105 

regel 

1190 

185 

regel 

520 

216 

regel 

1200 

106 

regel 

530 

89 

regel 

1210 

189 

regel 

540 

16 

regel 

1220 

109 

regel 

550 

31 

regel 

1230 

94 

regel 

560 

204 

regel 

1240 

247 

regel 

570 

250 

regel 

1250 

145 

regel 

580 

3 

regel 

1260 

111 

regel 

590 

28 

regel 

1270 

180 

regel 

600 

174 

regel 

1280 

69 

regel 

610 

253 

regel 

1290 

53 

regel 

620 

37 

regel 

1300 

198 

regel 

630 

130 

regel 

1310 

206 

regel 

640 

103 

regel 

1320 

13 

regel 

650 

131 

regel 

1330 

194 

regel 

660 

45 

regel 

1340 

197 

regel 

670 

50 

regel 

1350 

76 

regel 

680 

167 

regel 

1360 

204 


regel 

1370 

90 

regel 

1830 

202 

regel 

1380 

218 

regel 

1840 

127 

regel 

1390 

206 

regel 

1850 

240 

regel 

1400 

89 

regel 

1860 

133 

regel 

1410 

221 

regel 

1870 

121 

regel 

1420 

71 

regel 

1880 

158 

regel 

1430 

169 

regel 

1890 

242 

regel 

1440 

192 

regel 

1900 

32 

regel 

1450 

246 

regel 

1910 

43 

regel 

1460 

25 

regel 

1920 

90 

regel 

1470 

158 

regel 

1930 

119 

regel 

1480 

133 

regel 

1940 

157 

regel 

1490 

184 

regel 

1950 

147 

regel 

1500 

77 

regel 

1960 

190 

regel 

1510 

103 

regel 

1970 

134 

regel 

1520 

172 

regel 

1980 

40 

regel 

1530 

103 

regel 

1990 

87 

regel 

1540 

155 

regel 

2000 

237 

regel 

1550 

147 

regel 

2010 

100 

regel 

1560 

104 

regel 

2020 

79 

regel 

1570 

213 

regel 

2030 

12 

regel 

1580 

142 

regel 

2040 

20 

regel 

1590 

79 

regel 

2050 

54 

regel 

1600 

209 

regel 

2060 

146 

regel 

1610 

153 

regel 

2070 

87 

regel 

1620 

156 

regel 

2080 

210 

regel 

1630 

31 

regel 

2090 

106 

regel 

1640 

223 

regel 

2100 

26 

regel 

1650 

68 

regel 

2110 

181 

regel 

1660 

68 

regel 

2120 

47 

regel 

1670 

121 

regel 

2130 

86 

regel 

1680 

186 

regel 

2140 

146 

regel 

1690 

240 

regel 

2150 

64 

regel 

1700 

104 

regel 

2160 

129 

regel 

1710 

190 

regel 

2170 

131 

regel 

1720 

158 

regel 

2180 

250 

regel 

1730 

69 

regel 

2190 

147 

regel 

1740 

221 

regel 

2200 

116 

regel 

1750 

186 

regel 

2210 

156 

regel 

1760 

219 

regel 

2220 

95 

regel 

1770 

237 

regel 

2230 

67 

regel 

1780 

226 

regel 

2240 

8 7 

regel 

1790 

110 

regel 

2250 

250 

regel 

1800 

215 

regel 

2260 

194 

regel 

1810 

224 




regel 

1820 

253 
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Programma Disk redder c64 


Austin Putman, één van onze jongere lezers, heeft 
een programmaatje geschreven dat een per ongeluk 
van de schijf gewist programma weer terug kan ha- 
ien. Het gaat echter aiieen ais dit gebeurd is door het 
commando: SCRATCH. 

1 rem disk redder 64 

2 rem door austin putman 


poke53272,23 
gosub560:re%=0 

print"[SHIFT-CLR][CTRL-2]Ik[SPACE] 

bekijk[SPACE]diskette[SPACE]nu."di 

%",1[CRSR-D0WN]" 

sp%=l:tr%=di%;openlS, 8, 15, "iO 

openS,8,2,"#2":fi%=0 

print#15,"ui;"2;0;tr%;sp%:gosubSOO 

fori=0tol;get#8,a$:gosub470:p%(i)= 

asc(a$);next:a=2:gosub490 

get#8,a$:gosub470:a=asc(a$)and7 

h$="":fori=0tol:get#8,a$:gosub470: 

1%(i)=asc(a$):next 

fori=3tol8:get#8,a$:h$=h$+a$:next: 

ifh$=""thenl30 

print ki$(a);"[SPACE]";co$;h$;tab( 
11)co$;;1%(0);1%(1);ifa=0thengoto3 
00 

fi%=fi%+l;iffi%<8thena=fi%*32+2:go 
sub490:goto80 
ifp%(0)=0thenl60 

print"[CRSR-DOWN]Spoorverandering" 
;;tr%=p% (0) :sp%=p%(1) :fi%=0:printt 
r%;sp%"[CRSR-DOWN]":goto60 
closeS:print"[CTRL-9][CRSR-DOWN]Ca 
talog[SPACE]Einde[SPACE][CTRL-0]", 

;ifre%thenprint"[3xSPACE]Haal[SPAC 
E]Drive[SPACE]1":print#15,"vO 
gosubSOO:closelS:end 
rem** retrieve a file ** 
print#15,"ui:"2;0;1%(0);1%(1):retu 
rn 

d%=2:print"[CRSR-DOWN]Spoor,Sector 

IT . 

gosubl90:fori=0tol:get#8,a$:gosub4 
70 : z%(i)=asc(a$) 

printz%(i)"[CRSR-LEFT][SPACE]";:ne 
xt:print:print"[CRSR-UP]Spoor,Sect 
or " ; 

ifz%(0)=0thenprint:return 
print#15,"b-f"0;z%(0);z%(l):1%(0)= 
z%(0):l%(l)=z%(l):z%(d%)=z%(0) 
z%(d%+l)=z%(1):d%=d%+2 
ifds=0then210 

print:print"[CTRL-9]Het[SPACE]prog 
ramma[SPACE]is[SPACE]teruggeschrev 
en[5xSPACE] [CTRL-0] !";x%=not(x%):a 
=fi%*32+2 

fori=2tod%-4step2:print#15,"b-f:"0 
;z%(i);z%(i+1):next 

1%(0) =tr%:1%(1)=sp%:gosubl90:goto4 
90 

print"Terughalen?[SPACE](J/N)[4xSH 
IFT SPACE] 

get a$:if a$="" then 310 
if a$<>"j"thenl30 

x%=0:print"[CRSR-DOWN][3xSPACE]Blo 
cks[SPACE]terughalen.. .":z% (0)=1%( 


0);gosub200:ifx%thenl30 

print"[CRSR-DOWN]Is[SPACE]dit[SPAC 

E]een[SPACE][CTRL-9]P [CTRL-0] rogra 

mma, [CTRL-9]S [CTRL-0] equentieel, [S 

PACE] [CTRL-9]U[CTRL-0]ser, " 

print"of[SPACE][CTRL-9]R [CTRL-0] el 

atieve[SPACE]file.[2xSPACE]"; 

get ja$:ifja$<>"p"andja$<>"s"andja 

$<>"u"andja$<>"r"then360 

print:print 

print:ifja$="p"thenprint"[CTRL-9]P 
rogramma [CTRL-0] -":ki%=130:goto420 
ifja$="u"thenprint"[CTRL-9]User[CT 
RL 0]-":ki%=131:goto420 
ifja$="r"thenprint"[CTRL-9]Relatie 
f[SPACE] [CTRL-0]-" :ki%=132:goto420 
print"[CTRL-9]Sequentieel.[SPACE][ 
CTRL-0] -":ki%=129 

print"File[SPACE]terughalen[SPACE] 

1% (0)=tr%:1%(1)=sp%;gosubl90 

a=fi%*32+2:gosub490:print#8,chr$(k 

i%) ; 

bl%=((d%-2)/2)+1;print"[CRSR-DOWN] 

"bl%"Blocks[2xSPACE]"; 

print#15,"u2:"2;0;tr%;sp%:print"Da 

ar[SPACE]is[SPACE]ie[SPACE]weer[3x 

SPACE]![CRSR-DOWN]":re%=l:gotol30 

ifa$=""thena$=chr$(0) 

return 

print#15,"b-p:"2;a 

input#15,en%,em$,et%,es%:ifen%=0th 

enreturn 

print"[2xCRSR-DOWN][CTRL-9]disk[SP 
ACE]fout [CTRL-0] 

print"[CRSR-DOWN]Fout[SPACE]meldin 

g[2xSPACE] [CTRL-0] :[SPACE]"en%"[SP 

ACE]"em$","et%","es% 

print"A.U.B[SPACE]'CONT'[SPACE]typ 

en. 

end 

return 

dimp%(l),1%(1),z%(300),ki$(4):co$= 
chr$ (34) 

fori=0to4;readki$(i):next 

data"[CTRL-9]DEL [CTRL-0] ","SEQ","P 

RG","USR","REL" 

pg$="[CTRL-2][SHIFT-CLR][CTRL-9][6 
xSPACE]Disk[SPACE]file[SPACE]redde 
r[SPACE]VC1540/1541[6XSPACE][CTRL- 
0 ] " 

printpg$"[CRSR-DOWN]":print"Dit[SP 
ACE]programma[SPACE]maakt[SPACE]he 
t[SPACE]mogellijk[SPACE]om" 
print"verloren[SPACE]programma's[S 
PACE]terug[SPACE]te[SPACE]halen. 
print"U[SPACE]drukt[SPACE]op[SPACE 
]een[SPACE]knop[SPACE]en[SPACE]de[ 
SPACE]rest[SPACE]gaat[SPACE]van-"; 
prinf'zelf.[SPACE]Bijna[SPACE]alle 
[SPACE]programma's 

print"[CRSR-DOWN]zijn[SPACE]100%[S 
PACE]terug[SPACE]te[SPACE]halen[SP 
ACE]als[SPACE]ze[SPACE]door[2xSPAC 
E] " 

print"'SCRATCH'[SPACE]waren[SPACE] 
weggehaald. 

print"[CRSR-DOWN]Bij[SPACE]het[SPA 
CE]zoeken[SPACE]verliest[SPACE]u[S 
PACE]geen[SPACE]data" 
print"[3xCRSR-DOWN][2xSPACE]DRUK[S 
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Penalty c64 


HIFT SPACE]OP[SHIFT-SPACE]EEN[SHIF 
T SPACE]KNOP[SPACE]!" 

30 get td$:if td$="" then 680 

30 di%=18:return 

)0 print"[4xCRSR-UP]goto670 

EINDE LISTING programma redder ** 


regel 

1 

218 

regel 

340 

220 

regel 

2 

108 

regel 

350 

192 

regel 

3 

126 

regel 

360 

8 

regel 

4 

143 

regel 

370 

108 

regel 

10 

43 

regel 

380 

96 

regel 

20 

0 

regel 

390 

44 

regel 

30 

203 

regel 

400 

55 

regel 

40 

16 

regel 

410 

225 

regel 

50 

46 

regel 

420 

246 

regel 

60 

48 

regel 

430 

119 

regel 

70 

160 

regel 

440 

58 

regel 

80 

126 

regel 

450 

159 

regel 

90 

117 

regel 

460 

67 

regel 

100 

76 

regel 

470 

236 

regel 

110 

40 

regel 

480 

142 

regel 

120 

90 

regel 

490 

21 

regel 

130 

35 

regel 

500 

23 

regel 

140 

161 

regel 

510 

234 

regel 

150 

184 

regel 

520 

133 

regel 

160 

2 

regel 

530 

175 

regel 

170 

28 

regel 

540 

128 

regel 

180 

254 

regel 

550 

142 

regel 

190 

238 

regel 

560 

181 

regel 

200 

63 

regel 

570 

83 

regel 

210 

140 

regel 

580 

47 

regel 

220 

207 

regel 

590 

203 

regel 

230 

117 

regel 

600 

80 

regel 

240 

173 

regel 

610 

254 

regel 

250 

97 

regel 

620 

175 

regel 

260 

62 

regel 

630 

60 

regel 

270 

54 

regel 

640 

26 

regel 

280 

123 

regel 

650 

5 

regel 

290 

215 

regel 

660 

236 

regel 

300 

1 

regel 

67 0 

118 

regel 

310 

97 

regel 

680 

25 

regel 

320 

29 

regel 

690 

149 

regel 

330 

242 

regel 

700 

12; 
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Penalty is een reaktiespel voor één persoon. Met de 
joystick in poort twee bestuurt U de keeper met de 
bedoeling om zo veel mogelijk ballen tegen te hou¬ 
den. De keeper duikt in de richting waar de joystick 
heen gestuurd wordt, dat zijn er 6. Bij het programma 
wordt gebruik gemaakt van bijna 50 sprites. Het pro¬ 
gramma is voor de onlangs gehouden listing-wed- 
strijd ingestuurd en is gemaakt door Wilco Vertegaal 
uit Wouwse Plantage. 

1 print"[SHIFT-CLR][8xCRSR-DOWN][CRS 
R-RIGHT]het[SPACE]inlezen[SPACE]va 
n[SPACE]de[SPACE]dat a[SPACE]duurt[ 
SPACE]ca. [SPACE]3.2 0[SPACE]minute 
n.[SPACE]u[SPACE]kunt[SPACE]nu[SPA 
CE] " ; 

2 print"nog[SPACE]even[SPACE]ont span 
nen.":forq=192to211:gosubSO;next 

3 forq=0tol8:fort=0to60step3:forr=0t 
o2 : w=0 :p=peek ( (193-rq) *64+t+r) 

4 if (pandl) =lthenw=w-l-64 

5 if (pand2) =2thenw=w-(-128 

6 if(pand4)=4thenw=w+16 

7 if(pand8)=8thenw=w+32 

8 if(pandl6)=16thenw=w+4 

9 if(pand32)=32thenw=w+8 

10 if(pand64)=64thenw=w+l 

11 if(pandl28)=128thenw=w+2 

12 poke((212+q)*64+t-r+2),w:nextr,t, q 
:forq=231to239:gosubSO:next 

13 print"[SHIFT-CLR]";:poke53280,0:po 
ke53281,13 

14 a$="[COM-3 ]QQQQQQQQQQQQQQQQQQQQQQQ 
QQQQQQQQQQQQQQQQQ":fort=0to4:print 
a$;:next 

15 print"QQQQQQQQQQQ[CTRL-9][CTRL-3][ 
SPACE][CTRL-2][SPACE][CTRL-3][SPAC 
E][CTRL-2][SPACE][CTRL-3][SPACE][C 
TRL 2][SPACE][CTRL-3][SPACE][CTRL- 
2][SPACE][CTRL-3][SPACE][CTRL-2][S 
PACE][CTRL-3][SPACE][CTRL-2][SPACE 
][CTRL-3][SPACE][CTRL-2][SPACE][CT 
RL 3][SPACE][CTRL-2][SPACE][CTRL-3 
][SPACE][CTRL-2][SPACE][COM-3][CTR 
L 0]QQQQQQQQQQQ"; 

16 print"QQQQQQQQQQQ[CTRL-9][CTRL-2][ 
SPACE][CTRL-0]MVVVVVVVVVVVVVVN[CTR 
L 9][CTRL-3][SPACE][CTRL-0][COM-3] 
QQQQQQQQQQQ"; 

17 print"QQQQQQQQQQQ[CTRL-9][CTRL-3][ 
SPACE] [CTRL-2] [CTRL-0 ]V[SHIFT — ]W 
VVVVVVVVW[SHIFT — ]V[CTRL-9] [SPACE 
] [CTRL-0] [COM-3]QQQQQQQQQQQ"; 

18 print"QQQQQQQQQQQ[CTRL-9][CTRL-2][ 
SPACE][CTRL-0]V[SHIFT--]VVVVVVVVW 
W[SHIFT--]V[CTRL-9] [CTRL-3] [SPACE 
] [CTRL-0] [COM-3]QQQQQQQQQQQ"; 

19 print"[CTRL-1][CTRL-9][SPACE]coirnno 
dore[SPACE][CTRL-3][SPACE][CTRL-2] 
[CTRL-0] V [SHIFT—] VWVWWWW [SHI 
FT -]V[CTRL-9][SPACE][CTRL-1][SPAC 
E]commodore[SPACE]"; 

20 print"[3xSPACE]info[4xSPACE][CTRL- 
2][SPACE][CTRL-0]N[14xCOM-T]M[CTRL 

9][CTRL-3][SPACE][CTRL-1][4xSPACE 
]info[3xSPACE]"; 

21 printspc(12)"[CTRL-2] [CTRL-0] [16xC 
OM T] " .-print" [9xCRSR-DOWN] [19xCRSR 












22 

23 


61 


-RIGHT][2xSHIFT-*][CTRL-6]" 
gs=0;forw=0to4:ks=0:kd=0 
v=53248:pokev+21,7:pokev+29,5:poke 
v+23,5:pokev+28,5:pokev+37,O:pokev 
+38,10 

24 pokev+39,7:pokev+40,15:pokev+41,5: 
pokev,160:pokev+l,206:pokev+2,175 

25 pokev+3,206:pokev+4,160:pokev+5,97 
;poke2040,231:poke2041,239:poke204 
2,192 

26 z=w:gosub55 

27 if (peek(56320)andl6)<>0then27 

28 forq=0to5:poke2040,232+q:pokev+1,2 
03-3*q:fort=0to60:next:next 

29 poke2040,231:pokev+1,185:q=int(6*r 
nd(l)):p=l:ifq<3thenp=-l 

30 y=98+12*(q-3*int(q/3)):dx=p*55/(20 
6-y) 

31 pokev+3,peek(v+3)-5:pokev+2,175+dx 
* (206-peek(v+3)) :ifpeek(v+3)<=ythe 
n42 

32 ifks>0then37 

33 p=peek(56320):if(pand4)=4and(pand8 
)=8then41 

34 rd=l:if(pand4)=0thenrd=0 

35 dr=l:if(pandl)=0thendr=2 

36 if(pand2)=0thendr=0 

37 ks=ks+l:ifks>4then39 

38 poke2042,192+ks+19*rd:pokev+4,peek 
(v+4)+8*(rd-.5):goto41 

39 kd=kd+l;ifkd>5then41 

40 poke2042,196+kd+19*rd+dr*5;pokev+4 
, peek(v+4)+8*(rd-.5) 

41 goto31 

42 if3*rd+2-dr=qandkd>3thengs=gs+l:a= 
peek(v+2):b=peek(v+3):goto44 

43 poke2040,238:fort=0tol5:pokev+l, 18 
5-t:forr=0to20:next:next:goto45 

44 fort=0to30;pokev+2,a+t*dx;pokev+3, 
b+t:next:goto4 6 

45 fort=0tol5:pokev+l,170+t:forr=0to2 
0:next:next 

46 z=w+l:gosub55 

47 foret=0tol000:next:next 

48 if (peek(56320)andl6)<>0then48 

49 gotol3 

50 reada$,b$:fort=0to33 

51 pokeq*64+t,(asc(mid$(a$,t*2+l,1))- 
65)*16+asc(mid$(a$,t*2+2,1))-65:ne 
xt 

52 fort=34to63 

53 pokeq*64+t,(asc(mid$(b$,(t-34)*2+l 
,1))-65)*16+asc(mid$(b$,(t-34)*2+2 
,1))-65 

54 next:return 

55 print"[HOME]"tab(12)"[CTRL-9][CTRL 

1][2xSPACE]penalties:"str$(z)"[2x 
SPACE]": 

56 print"[HOME][CRSR-DOWN][12xCRSR-RI 
GHT][CTRL-9][16xSPACE]" 

57 print"[HOME][2xCRSR-DOWN]"tab(12)" 
[CTRL-9][2xSPACE]gestopt[2xSPACE]: 
"str$(gs)"[2xSPACE]":return 

58 dataaaaaaaaaaaaaaaaaaaaabeaaaaffaa 
aahnaaaappaaakppkacklokicikkcicikk 
ciap 

59 datakkpaapffpaabffeaadebmaadmdmaad 
mdmaaciciaaciciaabebeaabebeaab 

60 dataaaaaaaaaaaaaaaaaaaaabeaaaaffaa 
aahnaaaappaaakppkacklokicikkcicikk 
cici 


datakkcidnffhmdnffhmadebmaadmdmaad 
odoaaakakaaakakaaafafaaafafaab 

62 dataaaaaaaaaaaaaaaaaaaaabeaaaaffaa 

aahnaaaappaaakppkacklokikikkcikakk 
cika 

6 3 datakkcipaf fhmpbf fhmabhbpaaapapaaa 

oioiaaciciaaciciaabebeaabebeab 

64 dataaaaaaaaaaaaaaaaaaaaaaaaaaabeaa 
aaffaaaahnaaaappaaakppkacklokikikk 
cika 

65 datakkcikaffhmpaffhmpahbpaaapapaaa 
oioiaaciciaaafciaaafafaaaaafab 

6 6 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aafaaaabfeaaabpeaaadpmaaadpoiaakpk 
kack 

6 7 datakkkacikkpacif fpadmhbpadmpapaaa 

oioiaaciciaaafciaaafafaaaaafab 

68 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
aaaaaaaaaaaaaafaaaabfeaaabpgiaadpo 
kaal 

69 datapokackpkpacikjpaciffeacihipapa 
pjoipaabgiaaaaafaaaaafaaaaaaab 

7 0 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaaaaaaaaaaaaaaaaaaafaaaabfeaaabpg 
iaad 

71 datapokaalpopaakpkpacikfeacifepipa 

pjojpapjefaaaaabaaaaaaaaaaaaab 

7 2 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaaaaaaaaaaaaaaaaaaaaaaaabeaaaaffa 
aaah 

7 3 datankaaappkiaappkiaalogiaakfhoaci 

ndoepipabepaoeaeaakeaaaaaeaaab 

7 4 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabea 
aaaf 

7 5 datafaaaahnaaaappiaaappkaaalokaack 

looecihnoepapjaepaabaaaaaaaaab 

7 6 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
aaaa 

77 dataaaaaabeaaaaffaaaahniafappkgjal 

okhickkjhacilnpjpadmpjpaaaabab 

7 8 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aafaaaabfeaaabpeaaadpmaaadpoiaakpk 
kack 

7 9 datakkkacikloapafhmapahbeaaapipaaa 

cioiaaafciaaafcfaaaaafaaaaaaab 

8 0 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aafaaaabfeaaabpeaaadpmaaadpoaaakpk 
iack 

81 datakpiaoikpaapaffaaaapbeaaadipaaa 
cjoiaaafcfaaaaafaaaaaaaaaaaaab 

82 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
abeaaaaffaaaahnaaaappaaaappiaaalok 
aack 

83 dataloaaoilneapaffpjaafapjaahoebaa 
doeaaaaaeaaaaaaaaaaaaaaaaaaaab 

84 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
abeaaaaffaaaahnaaaappaaaappiaaalok 
aack 

85 datakkaaoipjpjpapfpjaafoebaadoeaaa 
aaeaaaaaaaaaaaaaaaaaaaaaaaaaab 

8 6 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

abeaaaaffaaaahnaaaappaaaappiaaalok 
aack 

8 7 datakkajolo jp jpdnfpbaafoeaaadoeaaa 

aaeaaaaaaaaaaaaaaaaaaaaaaaaaab 

8 8 dataaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

aafaaaabfeaaabpeaaadpmaaadpoiaakpk 
kapk 

datakloapiklmaaaffeaaahbpaaapapaaa 
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PRINT-OUT C 16 met Ufo en Pearldiver 


Pearldiver cl 6 


Dit is weer zo’n listing die we gekregen hebben naar 
aanleiding van onze prijsvraag. Het programma is 
ons opgevallen door de vele mogelijkheden die de 
programmeur in zo’n relatief kort programma heeft 
gekregen. Een uitgebreide uitleg bij het programma is 
niet nodig, alles wijst zichzelf. De bedoeling is zo veel 
mogelijk parels te verzamelen. Wie de meeste heeft 
heeft gewonnen. De maker van dit programma is; 
Theo Wiersma uit Zwijndrecht. 


1 

2 

3 

4 

5 

6 

7 

8 

10 

11 

12 

14 

20 

30 

40 

50 

60 

70 

80 

90 

100 


110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 


220 

230 

240 

250 

260 

270 

280 


rem (c) 1987 cbm software producti 

ons 
rem 
rem 
rem 
rem 
rem 
f o 
rem 
rem 
rem 
rem 
rem 
rem 

poke52,59:poke56,59:clr:hi=0:vol8: 
zl=0 

deffne (zl) ==3073+ {4 0*x2) +xl 
pokell76,44:fora=0to64*8:pokel5360 
+a,peek(53248+a):next:ch=0 
x=1525:fora=0to239:readd:pokex+a,d 
: next 

fora=0tol51:readd:pokel5872+a,d:ne 
xt 

poke65287,peek(65287)orl6:poke6529 
8,peek(65298)and251:poke65299,60 
poke65303,113;color3,7,3:colorO,1: 
color4,1:c$=chr$(17)+chr$(157)+chr 
$(157) 

fora=0to7;forb=lto4:readd:d$(a)=d$ 
(a)+chr$(d):nextb,a 

fora=0to7:d$(a)=left$(d$(a),2)+c$+ 

right$(d$(a),2):nexta:goto710 

le=0:dn=0:sc=0;li=3 

le=le+l:restorel090+(40*le):colorl 

,16,1:print"[SHIFT-CLR]":pl=0 

fora=0tol0:readd$:print"[SPACE]";: 

forb=ltol9:c=val(mid$(d$,b,1)) 

ifc=3thencolorl,13,5 

ifc=5thencolorl,16,2 

ifc>5thencolorl,16,6 

printd$(c);:print"[CRSR-UP]:next 

b;print:print:nexta 

xl=3:x2=3:char,1,23,"[CTRL-7]score 

.":char,15,23,"level.":printle 

char,2 6,23,"high.";printhi:char, 1, 

0,"lives.":char,29,0,"pearls.":ht= 

0 

print" [HOME] "spc (7) li : ifzlOOthenf 
orq=lto4000:next:goto710 
j=joy(2):ifj=3thengosub510 
ifj=7thengosub560 
ifj=5thengosub610 
ifj=lthengosub660 

dn=dn+l:colorl,15,5:char,xl,x2,"": 

printd$(dn) 

ifpl=20then420 


zwijndrecht,hólland 


programmeur : 
gemaakt op : 
voor : 

computer 
(c) copyright 


theo wiersma 
19-04-1987 
commodore in 

cl6 - plus/4 
1987 (c) 


290 

300 

310 

320 

330 

340 

350 


360 

370 


380 

390 

400 

410 


420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


ifdn=2thendn=0 

char,7,23,"[CTRL-7]":printsc:sysl7 
56 

x=fne(zl)+80:ifpeek(x)=66thenht=ht 

+1:ifht=2then350 

char,36,0,"";printpl 

ifint(rnd(1)*6)+I=6thengosub440 

goto230 

char,xl,x2,"[COM-1]":printd$(0):xl 
=xl+2:sysl756;gosub410:li=li-l:if1 
i<0then370 
le=le-l:gotol40 

char,15,12,"[CTRL-2][SPACE]game[SP 
ACE]over[SPACE]":getk$:ifk$<>""the 
n370 

forq=lto5000:getk$:ifk$<>""thenq=5 
000 

nextq:ifsc>hithenhi=sc 
goto710 

fora=8to0step-l:soundl,1,6:sound3, 
a,6:vola:next:forq=lto200:next:vol 
8:return 

gosub500:ifle>2thenle=0:li=li+l 
dn=0:gotol40 

bs=int(rnd(1)*17)+1:bs=bs*2+3833:i 
fpeek(bs)<>32then460 
pokebs,64 
return 

poke65287,peek(65287)and239:poke65 
298,peek(65298)or4:poke65299,208 
printerr$(er),el:end 
fora=ltol001step250:sound2,a,2:nex 
t:return 

restorel250:fora=lto20:readdl:read 
d2:soundl,dl,d2:nexta:return 
x=fne(zl)+2:ifpeek(x)=32then550 
ifpeek(x)=69thensc=sc+100:pl=pl+l: 
gosub490:goto550 

ifpeek(x)=79thensc=so+10:sound2,10 

08,4:goto550 

return 

char,xl,x2,"[COM-1]":printd$(0):xl 
=xl+2:ht=0:return 
x=fne(zl)-2:ifpeek(x)=32then600 
ifpeek(x)=69thensc=sc+100:pl=pl+l: 
gosub4 90:goto600 

ifpeek(x)=79thensc=sc+10:sound2,10 

08,4:goto600 

return 

char,xl,x2,"[COM-1]":printd$(0):xl 
=xl-2:ht=0:return 
x=fne(zl)+80:ifpeek(x)=32then650 
ifpeek(x)=69thensc=sc+100:pl=pl+l: 
gosub490:goto650 

ifpeek(x)=79thensc=sc+10:sound2,10 

08,4:goto650 

return 

char,xl,x2,"[COM-1]":printd$(0):x2 
=x2+2:ht=0:return 
x=fne(zl)-80:ifpeek(x)=32then700 
ifpeek(x)=69thensc=sc+100:pl=pl+l: 
gosub490:goto700 

ifpeek(x)=79thensc=sc+10:sound2,10 

08,4:goto700 

return 

char,xl,x2,"[COM-1]":printd$(0):x2 
=x2-2:ht=0:return 

print"[COM-6][SHIFT-CLR]":char,10, 
4,"RRR[SPACE]RRR[2xSPACE]R[2xSPACE 
]RRR[SPACE]R[2xSPACE]" 
char,10,5,"R[SPACE]R[SPACE]R[3xSPA 


720 










730 


CE]R[SPACE]R[SPACE]R[SPACE]R[SPACE 
]R" 

char,10,6,"RRR[SPACE]RRR[SPACE]RRR 
[SPACE]RRR[SPACE]R" 

740 char,10,7,"R[3xSPACE]R[3xSPACE]R[S 

PACE]R[SPACE]RR[2xSPACE]R" 

750 char,10,8,"R[3xSPACE]RRR[SPACE]R[S 
PACE]R[SPACE]R[SPACE]R[SPACE]RRR" 
760 char,10,11,"RR[3xSPACE]R[2xSPACE]R 

[SPACE]R[SPACE]RRR[SPACE]RRR" 

770 char,10,12,"R[SPACE]R[2xSPACE]R[2x 

SPACE]R[SPACE]R[SPACE]R[3xSPACE]R[ 
SPACE]R" 

780 char,10,13,"R[SPACE]R[2xSPACE]R[2x 

SPACE]R[SPACE]R[SPACE]RRR[SPACE]RR 
R" 

790 char,10,14,"R[SPACE]R[2xSPACE]R[2x 

SPACE]R[SPACE]R[SPACE]R[3xSPACE]RR 

It 

800 char,10,15,"RR[3xSPACE]R[3xSPACE]R 
[2xSPACE]RRR[SPACE]R[SPACE]R" 

810 print"[HOME][CRSR-DOWN][CTRL-2](c) 

[2xSPACE] 19 8 7 [SPACE]by[SPACE]cbm[S 
PACE]software[SPACE]prod[SPACE]hol 
land":getk$:ifk$<>""thenSlO 
820 fora=lto250:soundl, (int(rnd(1)*101 
5)+l),3:gosub440:sysl525 
830 getk$:ifk$<>""thena=250:nexta:gosu 

b500:zl=0:gotol30 

840 nexta:forq=ltol000:nextq:gosub500: 

zl=zl+l:ifzl=4thenzl=0;goto710 
850 le=zl-l:gotol40 

860 dataieo,0,162,0,189,161,12, 201, 64, 
208,52,189,121,12,201,32 
870 data208,45,232,189,121,12,201,32,2 
40,4,202,76,52,6,202,24 
880 datal69,64,157,121,12,105, 1,157,16 
1,12,105,1,232,157,121,12 
890 datal05,1,157,161,12,169, 32,202,15 
7,201,12,232,157,201,12,232 
900 data224,38,240,3,76,249,5,200,192, 

19.240.81.24.173.250.5 

910 datal05,40,141,250, 5, 141,29, 6, 141, 

40.6.144.9.238.251.5 

920 data238,30,6,238,41,6, 24,173, 1,6,1 
05,40,141,1,6,141 

930 data24,6,141,35,6,141,9,6,144,12,2 

38.2.6.238.25.6 

94 0 data238,36,6,238, 10,6,24,173,46,6, 

105.40.141.46.6.141 

950 data50,6,144,6,238,47,6, 238,51, 6, 7 
6,247,5,160,0,162 

960 datal2,185,216,6,141,250,5,142,251 
,5,141,29,6,142,30,6 

970 datal41,40,6,142,41,6,200,185,216, 

6.141.1.6.142.2.6 

980 datal41,24,6,142,25,6, 141, 35,6, 142 
,36,6,141,9,6,142 

990 datalO,6,200,185,216,6,141,46,6, 14 

2.47.6.141.50.6.142 

1000 data51,6,96,161,121,201,0,32,245,5 
,32,245,5,96,0,0 

1010 dataO,10,36,32,144, 152,136, 128, 128 
,128,128,144,32,20,5,0 
1020 dataO,144,36,4,5,1,1,4,1,1,5,5,4,2 
0,80,0 

1030 dataO,0,2,10,10,47,46,47,0,0,128,1 
60,224,252,252,252 

104 0 data47,47,47,47,11,3,0, 0,252, 252,2 
52,252,240,192,0,0 

1050 datal43,188,176,176,191,62,11,62,2 


40,60,12,12,252,240, 17 6, 252 
1060 data223,199,205,207,12,60,243,243, 
247,211,115,243,48,240,192,192 
1070 data223,199,205,207,12,15,3,3,247, 
211,115,243,48,60,207,207 
1080 data240,48,48,15,3,51,63,3,204,240 
,243,195,15,12,48,240 
1090 datall,43,47,175,191,191, 47,47,224 
,232,248,250,254,254,248,248 
1100 data255,255,255,255,255,255, 255,0 
1110 data32,32,32,32,104, 105,106,107,10 
4,105,108,109,100,101,102,103 
1120 data96,98,97,99,110,111,110,111,11 
2,113,112,113,114,114,114,114 
1130 data"7777777777777777777" , "7053555 

566444566007","7603444466033566337 

1140 data"7305550065545506507", "7540434 

064454006507","7545530066404306607 

1150 data"7443500063544506307", "7355433 

035504503557","7545455044404300447 

1160 data"7355455465455555547","7777777 

777777777777" 

1170 data"7777777777777777777","7036005 

006630500337","7546505003350500007 

1180 data"7505005000046565007","7050555 

306666560557","7050555306666360557 

1190 data"7666655006536460537", "7353555 

006556660557","7505444056553330557 

TI 

1200 data"7444333043444444447" , "7777777 

777777777777" 

1210 data"7777777777777777777", "7055553 

633663363537","7444445605635005557 

1220 data"7666664300330560007" , "7533355 

600440060007","7500003600000060007 

tf 

1230 data"7533303600000060067", "7000005 

600000060067","7444445630000060067 

1240 data"7000005554444464437", "7777777 

777777777777" 

1250 data596,12,653,4,685,4,704,4,739,4 
, 643, 12, 685,4,704,4,739,4,770, 12 
1260 data596, 12,643,4,685,4,704,4,739,1 
2,704,12,685,4,643,4,596,4,596,12 

** EINDE LISTING pearl diver ** _ 


regel 

1 

] 47 

regel 

70 

211 

regel 

2 

9 

regel 

80 

58 

regel 

3 

143 

regel 

90 

234 

regel 

4 

98 

regel 

100 

96 

regel 

5 

99 

regel 

110 

141 

regel 

6 

224 

regel 

120 

91 

regel 

7 

182 

regel 

130 

135 

regel 

8 

143 

regel 

140 

127 

regel 

9 

168 

regel 

150 

165 

regel 

10 

143 

regel 

160 

99 

regel 

11 

73 

regel 

170 

101 

regel 

12 

143 

regel 

180 

104 

regel 

13 

143 

regel 

190 

84 

regel 

14 

143 

regel 

200 

15- 

regel 

20 

0 

regel 

210 

69 

regel 

30 

163 

regel 

220 

101 

regel 

40 

24 

regel 

230 

12 

regel 

bO 

60 

regel 

240 

141 

regel 

60 

58 

regel 

250 

135 




















print-out print-out print-out print-out print-out 


regel 

260 

136 

regel 

770 

252 

regel 

270 

9 

regel 

780 

115 

regel 

280 

120 

regel 

790 

254 

regel 

290 

28 

regel 

800 

209 

regel 

300 

119 

regel 

810 

232 

regel 

310 

32 

regel 

820 

150 

regel 

320 

176 

regel 

830 

143 

regel 

330 

63 

regel 

840 

110 

regel 

340 

30 

regel 

850 

29 

regel 

350 

73 

regel 

860 

211 

regel 

360 

8 

regel 

870 

164 

regel 

370 

51 

regel 

880 

6 

regel 

380 

179 

regel 

890 

99 

regel 

390 

240 

regel 

900 

136 

regel 

400 

33 

regel 

910 

22 

regel 

410 

39 

regel 

920 

122 

regel 

420 

102 

regel 

930 

39 

regel 

430 

204 

regel 

940 

238 

regel 

440 

95 

regel 

950 

151 

regel 

450 

194 

regel 

960 

20 

regel 

460 

142 

regel 

970 

116 

regel 

470 

241 

regel 

980 

131 

regel 

480 

203 

regel 

990 

227 

regel 

490 

224 

regel 

1000 

74 

regel 

500 

243 

regel 

1010 

114 

regel 

510 

52 

regel 

1020 

66 

regel 

520 

151 

regel 

1030 

160 

regel 

530 

160 

regel 

1040 

174 

regel 

540 

142 

regel 

1050 

129 

regel 

550 

82 

regel 

1060 

23 

regel 

560 

49 

regel 

1070 

21 

regel 

570 

147 

regel 

1080 

79 

regel 

580 

156 

regel 

1090 

202 

regel 

590 

142 

regel 

1100 

43 

regel 

600 

83 

regel 

1110 

173 

regel 

610 

107 

regel 

1120 

205 

regel 

620 

152 

regel 

1130 

127 

regel 

630 

161 

regel 

1140 

43 

regel 

640 

142 

regel 

1150 

38 

regel 

650 

84 

regel 

1160 

58 

regel 

660 

104 

regel 

1170 

73 

regel 

670 

148 

regel 

1180 

48 

regel 

680 

157 

regel 

1190 

77 

regel 

690 

142 

regel 

1200 

38 

regel 

700 

85 

regel 

1210 

127 

regel 

710 

134 

regel 

1220 

247 

regel 

720 

206 

regel 

1230 

233 

regel 

730 

233 

regel 

1240 

30 

regel 

740 

254 

regel 

1250 

155 

regel 

750 

71 

regel 

1260 

208 

regel 

760 

113 





De naam verraadt eigenlijk al waar dit programma 
over gaat. Een aantal ongeïdentificeerde vliegende 
objecten is zoek geraakt. Aan u de taak deze op te 
sporen. Het is niet zo makkelijk als het lijkt want de 
speurtocht strekt zich uit tot in een uitgebreid grotten¬ 
stelsel. Het geheel is een creatie van Peter Boersma 
uit Stadskanaal. 


u. f. o. 


colorO,1:colorl,2,1:color4,1:scncl 
r 

print"[SHIFT-CLR][COM-6][5xCRSR-D 
OWN][SxCRSR-RIGHT]op[SPACE]zoek[SP 
ACE]naar[SPACE]u.f.o." 
print"[SxCRSR-DOWN][SPACE]opdracht 
:[SPACE]zoek[SPACE]de[SPACE]tien[S 
PACE]ufo's[SPACE]":print"[CRSR-DOW 
N][SxSPACE]en[SPACE]ga[SPACE]terug 
[SPACE]naar[SPACE]start." 
print"[2xCRSR-DOWN][CTRL-5][SPACE] 
besturing[SPACE]via[SPACE][CTRL-8] 
joystick[SPACE]1[CTRL-5][SPACE]of[ 


SPACE][CTRL-8]cursor[SxSPACE][CRSR 
-DOWN]toetsen" 

print"[3xCRSR-D0WN]"tab(4)"[COM-6] 
druk[SPACE]op[SPACE]'return'[SPACE 
][3xCRSR-UP]":getkeya$:if a$<>chr$ 
(13) then 40 

colorl,2,1:poke 65298,peek(65298)a 
nd251 

poke 65299,peek(65299)and3or48 
for t=832 to 849:read a:poke t,a:n 
ext t:sys 832 

data 162,0,189,0,208,157,0,48,189, 
0,20 9,157,0,49,202,208,241,96 
for t=12800to 12799-l-(14*8) :read a 
:poke t,a:next t:printchr$(142)chr 
$(8) 

data 0,24,60,108,255,24,36,0 
data 0,24,60,090,255,24,8,0 
data 0,253,253,253,0,191,191,191 
data 253,253,253,0,191,191,191,0 
data 0,96,241,241,0,179,183,191 
data 191,183,179,0,241,241,96,0 
data 128,192,48,220,129,214,170,15 
3 

data 153,170,214,129,220,48,192,12 
8 

data 1,2,5,36,214,153,129,214 
data 214,129,153,214,36,5,2,1 
data 66,40,186,108,94,245,50,76 
data 0,24,60,058,255,24,16,0 
data 0,0,0,24,60,090,255,24 
data 255,66,36,24,24,36,66,255 
gosub 260:goto 570 
print"[HOME]"; 

print"BBBBBBGIBCCBBBGEBBBBBBBBBBCC 
CBBBBBBBBBBB" 

print"BBBBG[3xSPACE]ECBBBG[2xSPACE 
]lEBBBCBBBBBCCBBBBBBBBBBB" 
print"BBBBF[4xSPACE]EBBB[SxSPACE]E 
BCCBGBBGEEGEBBBBGEGEE" 
print"BBBBG[SxSPACE]BBBDF[4xSPACE] 
BCCG[SPACE]EG[SxSPACE]IBBG[SxSPACE 
]" 

print"BBBG[6xSPACE]IBBBBB[2xSPACE] 
HBCB[1OxSPACE]IBD[4xSPACE]D" 
print"BBC[3xSPACE]DCDF[SPACE]EBBBG 
[2XSPACE]EBCBDF[3xSPACE]DCF[3xSPAC 
E]EBF[2xSPACE]DB" 

print"BGE[2xSPACE]DBCBBDHCBB[4xSPA 
CE]EEBBG[3xSPACE]IBBF[SPACE]HBBG[S 
PACE]HGE" 

print"G[4xSPACE]BBBBBBBBBBF[SxSPAC 
E]BF[SxSPACE]lEG[SPACE]EBF[2xSPACE 
] BFD" 

print"[4xSPACE]HBCBCBBBBBBBF[3xSPA 
CE]HCBDHF[SxSPACE]HF[2xSPACE]IG[2x 
SPACE]IBB" 

prinf'DF[2xSPACE]IBBCCCBBBBGIBDF[S 
PACE]ICGEIBF[2xSPACE]IBF[SPACE]HF[ 
SxSPACE]EB" 

print"CG[SxSPACE]IBBCBCBBE[2xSPACE 
]IBG[6xSPACE]IG[2xSPACE]HBE[SPACE] 
EBFD[SPACE]HB" 

print"CF[4xSPACE]ECBBCCG[8xSPACE]H 
F[6xSPACE]CC[SxSPACE]IBG[SPACE]IB" 
print"BBBDF[2xSPACE]ICBBG[SxSPACE] 
HCCD[4xSPACE]HCG[4xSPACE]E[SxSPACE 
] B" 

prinf'CCBG[4XSPACE]IBE[SxSPACE]HM[ 
SPACE]MCCCCF[3xSPACE]ICFHD[4xSPACE 
]DHB" 
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print "BCG[2xSPACE]HBDHCF[4xSPACE]H 

CCCCCCCCE[3xSPACE]HCCCCF[SPACE]HDB 
CC" 

print"BBF[4XSPACE]lECE[4xSPACE]ICG 
ICCCCG[2xSPACE]HBCCCCCBCCCBBB" 
print"CCGIDF[3xSPACE]IG[8xSPACE]IC 
CC[2xSPACE]HBBBCBEGECEIBBB" 
print"IG[2xSPACE]IBF[6xSPACE]HF[5x 
SPACE]ECG[2xSPACE]lECBCG[6xSPACE]I 
BB " 

print"[BxSPACE]IBFDF[2xSPACE]HBBFD 
[SPACE]HDHCF[4xSPACE]IBCF[SPACE]IB 
BF[2xSPACE]IB" 

prinf'F[5XSPACE]IBBBFHBBBBG[SPACE] 

IBECEF[3xSPACE]HBCB[2xSPACE]IBBF[3 
xSPACE]" 

print"BDFD[2XSPACE]HBBBBEIGEBF[lOx 
SPACE]IBCG[2XSPACE]HBEG[SPACE]HD" 
prinf'BBBG[2xSPACE]ECCEG[4xSPACE]I 
BFDBBFDHF[6xSPACE]HBBG[3xSPACE]BB" 
print"CBG[4xSPACE]IG[3xSPACE]DF[4x 
SPACE]IBBEGIEBDFHBEG[5xSPACE]HBB" 
prinf'CBF[8xSPACE]HCCCF[18xSPACE]H 
DBBBB" 

print"CBBDFDHBBFHBCBBBFDHFDBBDBBBF 
HBBDBDBBBBB";:poke 4071,66 
restore 540:for a=0to 3;read w,v: 
if x(v)=0then poke w,76:poke w-10 
24, 17 

next a:return 

data 3784,0,3260,1,3598,2,3891,3 
restore 540:for a=0to 3:read w,v: 
if w=p then x(v)=l:q=q+l 
next a;return 

ti$="000000":p=3610:k=65:le=3 
get a$ 

if li=0and re=0and q=10and p=36 
lOthen goto 1450 

if a$<>"" then poke p,32:poke p-10 
24,113 

if a$="d" or a$="[CRSR-LEFT]" then 
p=p-l;dp=l 

if a$="6" or a$="[CRSR-RIGHT]" the 
n p=p+l:dp=-l 

if a$="5" or a$="[CRSR-UP]" then p 
=p-40:dp=40 

if a$="r" or a$="[CRSR-DOWN]" then 
p=p+40:dp=-40 

if p=3232 or p=3872 then gosub 106 
0:p=p-39:goto 580 

if(p=3191 or p=3831) and re=l then 
gosub 260 :re=0:p=p+39:goto 580 
if p=3391 or p=3791 then gosub 740 
:p=p+39;goto 580 

if(p=3432 or p=3832) and li=l then 
gosub 260;li=0:p=p-39:goto 580 
pl=peek(p):if pl=76 then gosub 148 
0:goto 710 

pl=peek(p):if pl<>32 and pl<>64 an 
d pl<>65 and pl<>75 then gosub 137 
0 

if k=65 then k=64:else if k=64 the 
n k=75:else k=65 

poke p,k:poke p-1024,103:goto 580 

rem - scherm links - 

li=l:print"[HOME]"; 

print"BBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBB" 

print" BBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBB" 

print"BBBBBBBCCCCCCBBBBBBBBBBBBBBB 


BBBBBBBBBBBB" 

780 print"BBBBBBBCBBBBBCBBBBBBBBBBBBBB 

BBBBBBBBBBBB" 

790 print"BBBBBBBCBBBBBBCBBBBBBGEIGEEB 

BBBBBBBBBBBB" 

800 print"BBBBBBBCBBBBBBCBBBBBG[6xSPAC 

E]EBBBBBBBBBBBB" 

810 print"BBBBBBBCBBBBBBCBBBBE[2xSPACE 
]DHF[4XSPACE]IBBBBBBBBBB" 

820 prinf'BBBBBBBCBBBBBCBBBBG [2xSPACE] 
HBBBBD [3xSPACE] EEBBBGEIBG" 

830 print"BBBBBBBCCCCCCBBBBE[2xSPACE]D 
BBBBBBDF[3xSPACE]IBB[5xSPACE]" 

840 print"BBBBBBBCBBBBBBBEG[3xSPACE]IB 
BBBBBBBF[3xSPACE]IG[2xSPACE]HDH" 

850 print"BBBBBBBCBBBBBBG[SPACE]HF[3xS 
PACE]EIBBBBBBBDF[4xSPACE]DBBB" 

860 prinf'BBBBBBBCBBBBBE[2xSPACE]BG[2x 
SPACE]HFDBBBBBBBBBF[3xSPACE]IBBB" 
870 prinf'BBBBBBBCBBBBE[2xSPACE]HBF[2x 
SPACE]IBBBBBBBBBBBB[4xSPACE]IBB" 

880 print"BBBBBBBCBBBBFDHBBBB[SPACE]DB 

BBBBBBBBBBBB[2xSPACE]DHBB" 

890 print"BBBBBBBCBBBBBBBBBBE[SPACE]IB 

BBGEIBBBBBBBF[SPACE]IBBB" 

900 prinf'BBBBBBBBBBBBBBBBBBF[2xSPACE] 
IBE[SPACE]D[SPACE]IBBBBBBBF[SPACE] 
IBB" 

910 print"BBBBBBBBBBBBBBBGEBBD[SPACE]H 
BFHBFDBBBBBGEG[2xSPACE]EB" 

920 print"BBBBBBBBBBBBBBBF[SPACE]IBG[S 

PACE]EBBBBBBBBBBBB[4xSPACE]IB" 

930 prinf'BBBBBBBBBBBBBBBBDF[3xSPACE]H 
BBBBBBBBBBBBF[5xSPACE]" 

940 print"BBBBBBBBBBBBBBBBBG[2xSPACE]H 
BBBBBBBBBBBBBG[2xSPACE]HBB" 

950 print"BBBBBBBBBBBBBBBBG[SxSPACE]IB 
BBBBBBBBBBBG[2xSPACE]HBBB" 

960 print"BBBBBBBBBBBBBBBBD[4xSPACE]EB 
BBBEGIBBEG[2xSPACE]DBBBB" 

970 print"BBBBBBBBBBBBBBBBBF[4xSPACE]I 
BBG[8xSPACE]HBBBBB" 

980 print"BBBBBBBBBBBBBBBBBBF[SxSPACE] 

HBFDFHDBBBBBB" 

990 print"BBBBBBBBBBBBBBBBBBBDFHDFDFHB 

BBBBBBBBBBB";:poke 4071,66 
1000 restore 1040:for a=4 to 6:read w,v 
:if x(v)=0then poke w,76:poke w-1 
024,17 

1010 next a:return 

1020 restore 1040:for a=4 to 6:read w,v 
:if w=p then x(v)=l:q=q+l 
1030 next a:return 
1040 data 3929,4,3570,5,3588,6 

1050 rem-scherm rechts- 

1060 re=l:print"[HOME]"; 

1070 print"BBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBB" 

1080 print"BBBBEGIBEIBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBB" 

1090 print"GIBG[6xSPACE]IBBBBBBBBBBCCCC 
CBBBBBBBBBBBBBB" 

1100 print"[2xSPACE]E[2xSPACE]HF[3xSPAC 
E]HBBBBBBBBBBCBBBBCBBBBBBBBBBBBB" 
1110 print"F[3xSPACE]HBB[SPACE]HDBBBBBB 
BBBBBCBBBBBCBBBBBBBBBBBB" 

1120 prinf'BFDDBEG[SPACE]lEEGIEBBBBBBBC 
BBBBBCBBBBBBBBBBBB" 

1130 print"BBBBG[9xSPACE]IBBBBBBCBBBBCB 
BBBBBBBBBBBB" 

1140 prinf'BBBG[2xSPACE]HDFHFDF[2xSPACE 


770 

















print-out print-out print-out print-out print-out 


]EBBBBBCCCCCBBBBBBBBBBBBBB" 
prinf'BBE[SPACE]HDBBBBBBG[2xSPACE] 
HBBBBBCBBBBCBBBBBBBBBBBBB " 
print"BBF[SPACE]IBBBBBBE[3xSPACE]E 
BBBBBCBBBBBCBBBBBBBBBBBB" 
print"BBBF[SPACE]IBBBBBF[4xSPACE]I 
BBBBCBBBBBCBBBBBGIBBBBB" 
prinf'BBBG[2xSPACE]IBBBBBF[SxSPACE 
]HBBBBCBBBBBCBBBEG[SPACE]HBBBBB" 
print"BBG[2xSPACE]HDBBBBBBDF[SPACE 
]IBBBBCBBBBCBBBBF[SPACE]DBBBBBB" 
print"BG[2xSPACE]DBBBBBBBBBE[2xSPA 
CE]BBBBCCCCCBBBBEG[SPACE]lEBBBBB" 
print"BD[2xSPACE]IBBBBBBBBBF[2xSPA 
CE]EBBBBGEGIBEBG[SxSPACE]IBBBB" 
prinf'BBF[2xSPACE]EIBBBBBBBBF[3xSP 
ACE]IBG[9xSPACE]HDF[2xSPACE]IBBB" 
prinf'BBBD[SPACE]HDBBBBBBBBBDF[5xS 
PACE]HFDDFHFHBBG[2xSPACE]DBBB" 
prinf'BBBG[SPACE]IBBGEGIEBBBBBDFDD 
HBBBBBBBBBG[2xSPACE]HBBBB" 
prinf'BBG[lOxSPACE]IBBBBBBBBBBBBBB 
BBBE[2xSPACE]DBBBBB" 
print"[4xSPACE]HBDF[SPACE]HDF[2xSP 
ACE]EBBBBBBBBBBBGEGIB[2xSPACE]HBBB 
BBB" 

print"FDFHBBBBDBBBD[SPACE]HBBBBBBB 
BBBG[4xSPACE]E[2xSPACE]IBBBBBB" 
print"BBBBBBBBBBBBG[SPACE]IBBGEIBB 
EBG[SxSPACE]HBBBBBB" 
print"BBBBBBBBBBBBF[VxSPACE]EG[3xS 
PACE]HBBBFDDHBBBBBBB" 
print"BBBBBBBBBBBBBBFDBBF[4xSPACE] 
HDBBBBBBBBBBBBBBB" 
print"BBBBBBBBBBBBBBBBBBBDFHBBBBBB 
BBBBBBBBBBB";:poke 4071,66 
restorel340:for a=7 to 9:read w,v: 
if x(v)=0then poke w,76:poke w-10 


1501 rem 

1502 rem 

1503 rem 

1504 rem 

1505 rem 

1506 rem 

1507 rem 


24,17 

next a:return 

data 3976,7,3556,8,3940,9 

restore 1340:for a=7 to 9:read w,v 

:if w=p then x(v)=l:q=q+l 

next a:return 

v=9:poke p,74:poke p-1024,66 

for h=80to Ostep -10 

v=v-l:vol v;sound 3,h,5;next h 

for a=l to 1000:next a:le=le-l 

if le=0then goto 1450 

k=65:poke p+dp,k:poke p+dp-1024,10 

3 

poke p,pi:poke p-1024,17:p=p+dp 
return 

print"[SHIFT-CLR][CTRL-8][lOxCRSR- 
DOWN]"tab(10)"score;" ;q*10; "%" 
print"[3xCRSR-DOWN]"tab(10)"tijd[S 
PACE]:";ti$:print"[2xCRSR-DOWN][2x 
SPACE]druk[SPACE]op[SPACE]'return' 

geta$:if a$<>chr$(13) then 1470:el 
se run 

if li=0and re=0then gosub 550:re 
turn 

if li=0then gosub 1350:return 
gosub 1020:return 


u.f.o. door peter boersma - 

voor commodore info 1988 
i.v.m. prijsvraag jan '88 
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Triple 128 


Dgzg maand bGhandGiGn wij in dG softwarG bGsprGking ggh softwarGpakkGt van dG in 
hGt hogG noordGn gGVGStigdG firma TEEKTRONIX. Dit pakkGt bGstaat uit twGG diskGt- 
tGS, waarvan ditmaal disk 1. ondGr dG losp wordt ganornGn. 


Interlace & Backup 


O p deze diskette staan twee programma’s. Het eerste programma is een 
Interlace editor en de tweede een supersnel backup programma. Beide 
programma’s werken alleen in de 80 cis mode. Het backup programma is al¬ 
leen bedoeld om eigen software te backuppen en niet voor illegale doelein¬ 


den! 

INTERLACE-EDITOR 

Interlace werkt alleen in de 80 cis 
mode, zodra u geen gebruik maakt 
van de 80 cis mode krijgt u een mel¬ 
ding op uw scherm. Wat is nu precies 
Interlace? De uitvoer van een beeld 
op de monitor van een computer ge¬ 
beurt volgens de PAL-televisie norm. 
Hierbij is het scherm opgebouwd uit 
625 horizontale beeldlijnen, die van 
links naar rechts worden geschreven. 
Om het beeld niet te laten flikkeren 
stuurt de chip 50 lijnen per seconde 
naar de monitor. Dit betekent dus 50 
maal 625 beeldlijnen per seconde. 
Om en om verschijnt er een beeld dat 
bestaat uit oneven lijnen en daarna 
een uit even lijnen. Het is nu mogelijk 
met dit programma gebruik te maken 
van deze Interlace mode van de 80 cis 
chip. Door deze Interlace mode heeft 
u nu 50 i.p.v 25 regels op een scherm. 
Dit biedt vele mogelijkheden, denk 
maar eens aan die enorme lange ba- 
siclisting die u nog zo verschrikkelijk 
nauwkeurig had ingetikt, en nu tot uw 
grote ergenis een typfout bevat. Wat 
doet u in zo’n geval: uitzoeken dus. 
Waar sprong die GOTO nu naar toe? 
Of ’in welke regel stond dat nu weer?’ 
Dan maar weer opnieuw listen. Ja dat 

heb je nu met 25 regels op een 
scherm, maar niet diegene die dit pro¬ 
gramma bezit. Bij het opstarten van 
het programma komt u direct in een 
menu waar u de gewenste instellingen 
kunt uitkiezen! Een monochroom mo¬ 
nitor zal in het algemeen beter functio¬ 
neren dan een kleurenmonitor. Op 
een TV werkt dit programma zeker 
NIET!! Vanuit dit editmenu kunt u met 
de volgende toetsen het beeldscherm 
bewerken. CURSOR-UP beweegt het 
beeldscherm naar boven. CURSOR- 
DOWN beweegt het beeldscherm 
naar beneden. CURSOR-RIGHT ver¬ 
hoogd het aantal beeldscherm lijnen. 
CURSOR-LEFT vermindert het aantal 


beeldscherm lijnen, -i- Beweegt het 
scherm naar rechts. - Beweegt het 
scherm naar links. Waarom de pro¬ 
grammeurs het naar links en rechts 
schuiven van het scherm niet onder 
de cursor toetsen hebben gedaan was 
voor ons ook verwarrend, dus jongens 
eventjes aanpassen in een volgende 
versie. SPACE verhoogt het aantal 
karakters op het scherm. SHIFT-SPA- 
CE verlaagt het aantal karakters op 
het beeldscherm. Om dit editmenu te 
verlaten kunt u gewoon op functie¬ 
toets F3 drukken. U zult nu kunnen 
werken op een scherm zoals u dat zelf 
heeft ingesteld. Dus vanaf nu niet 
meer knoeien met het 25 regels tellen¬ 
de beeldscherm maar gewoon ‘over 
schakelen’ naar 50 regels per scherm. 



LIGHTSPEEDCOPY 

Het tweede programma op deze disk 
is Lightspeed. Dit ultra snelle kopieer- 
programma werkt met twee 1570 of 
1571 diskdrives. Meer heeft u niet no¬ 
dig, en zelfs geen parallelkabel, maar 
gewoon dat oersimpele seriële kabel¬ 
tje. Wij waren wat de snelheid van dit 
soort programmatuur al heel wat ge¬ 
wend. En nu komt het met dit kopieer- 
programma bent u in staat in 8 SEC 
een kantje te kopieëren. Een dubbel¬ 


zijdige diskette wordt in 16 SEC voor 
u gekopieerd. Stelt u zich eens voor 
dat naast u een kopieerfreak zit die 
met een enorme opgefokte diskdrive 
zit te werken, zodat hij een windmolen 
nodig heeft om zijn diskdrive koel te 
houden, en u met een compleet origi¬ 
nele 128 zonder enig gesoldeer aile 
snelheidsrecords breekt. Wij kunnen 
u garanderen dat zelfs bij dit persoon 
de koude rillingen hem over de rug lo¬ 
pen. Dit programma werkt zoals bo¬ 
ven vermeld met twee 1570 of 1571 
diskdrives. Wij bedoelen daar het vol¬ 
gende mee: gebruik of twee 1570 
diskdrives of twee 1571 diskdrives, 
dus niet twee verschillende. De com¬ 
puterfreaks die een 128/DCR bezitten 
moeten we helaas teleurstellen dat 
het programma niet samenwerkt met 
een 128/DCR. Dit programma is ech¬ 
ter aleen geschikt voor het kopiëren 
van hele diskettes en dus geen losse 
file’s. 

Hoe werkt het? 

Nadat u het programma heeft opge¬ 
start ziet u een menu. In dit menu 
staan de volgende functies die geko¬ 
zen kunnen worden door middel van 
de volgende funktietoetsen: 
f1 - DIRECTORY: Hiermee kunt u zo¬ 
wel van de source of de destination 
disk een directory trekken. 
f3 - BACKUP: Voordat u deze funktie 
gebruikt zorg dan wel dat u goed in uw 
stoel zit. Zodra u deze functie geko¬ 
zen hebt gaat het driveledje van de 
source diskdrive langzaam knipperen 
(geen error dus). Het ledje van de des¬ 
tination drive is dan nog gewoon uit, 
dit geeft u nog even de mogelijkheid 
om van schijf te verwisselen als dat 
tenminste nodig is (anders zit u straks 
met twee lege schijven en dit is dus 
niet de bedoeling van dit programma). 
Ondertussen wordt u de vraag gesteld 
of u klaar bent, als dat het geval is 
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drukt u op de spatiebalk. Nu wordt er 
gevraagd of de detination drive ge¬ 
reed is. Nadat u nog een keer op de 
spatiebalk hebt gedrukt zult u zien en 
horen wat er bedoeld wordt met 
LIGHTSPEEDCOPY. 
f5 - OPTIES: Met deze functie komt u 
in een submenu terecht dat later be¬ 
sproken zal worden. 
f7 - QUIT: Voor als er genoeg van 
heeft of klaar bent met kopieeren. Dan 
nu het submenu. 

f2 - VERIFY: Als deze funktle op ON 
staat wordt er gecontroleerd op errors. 
Staat hij op OEF dan kopieert hij de 
schijf gewoon zonder errors. 


f4 - SINGLE/DOUBLE SIDED: Hier 
mee kunnen we kiezen of u een kant 
of allebei kanten van de diskette wilt 
kopieeren. 

f6 - SOURCE: Met deze optie kunt u 
instellen welke van de twee diskdrives 
nou de source is en dus tevens welke 
de destination is. Als de source op 8 
staat wordt de destination natuurlijk 9 
en net andersom vanzelfsprekend 
ook. 

f8 - RETURN TO MAIN MENU; Met 

deze functie verlaat u het submenu en 
keert u weer terug in het hoofdmenu. 
U zult reeds wel gemerkt hebben dat 
wij het over errors hadden. Wat is er 


nu zo belangrijk aan het kunnen kopi¬ 
eeren van errors ? Dat zullen we u 
even vertellen veel software firma’s 
maken gebruik van deze errors. Door 
een error op een diskette te zetten van 
een orgineel en deze dan ook te con¬ 
troleren is er als het ware een kopieer 
beveiliging aangebracht er zijn im¬ 
mers maar weinig goede en tevens 
snelle kopieer programma’s die deze 
errors dan ook kopieeren. 

CONCLUSIE: Wij vinden dat dit pak¬ 
ket de moeite van het aanschaffen 
waard is. 

JOHAN & JOHAN. 


Om maar met de deur in huis te vallen, de afleveringen van Triple 128 in Commodo¬ 
re Info die door u gelezen worden zijn natuurlijk veel eerder door ons behandeld. En 
daarom is het niet mogelijk om direct alle vragen en antwoorden in het volgende 
nummer te publiceren. Verder moesten wij eerst de brieven eens goed bestuderen. 
Bij deze bedankt voor alle post die wij hebben mogen ontvangen van u. Mogen wij 
de volgende keer weer zo’n zak ontvangen? 

Vragen en reakties 


Wij willen bij deze aile lezers 
oproepen om op de vragen te 
reageren. Wanneer u zelf ook 
het omschreven probleem 
heeft meegemaakt, en op een 
andere manier dan ons heeft 
opgelost, stuur dan een brief 
en leg uit hoe u het probleem 
heeft opgelost. Uit de opge¬ 
stuurde post hebben wij het 
meest aantrekkelijke voor alle 
lezers uitgezocht. Op deze ma¬ 
nier krijgt u misschien nog wat 
i nspir at ie op co mpu ter gebied. 

P.v. Smissen uit Haarlem schreef 
ons dat hij wat problemen heeft met 
de nieuwste versie van de 128. U 
weet nu dat die er ook is en wel In 
een metalen uitvoering. Zoals wij al 
schreven in het vorige nummer is 
deze Commodore 128 niet voor de 
volle 100% gelijk aan zijn RV.C voor¬ 
ganger. Erg is dit niet maar u moet er 
alleen mee leren omgaan. De schrij¬ 
ver van de brief vraagt of wij dat eens 
willen uitzoeken. Tja dat is niet onze 
taak en zullen wij dus ook nooit gaan 
doen, dat moet de software schrijver 
zelf maar oppakken. Het zou immers 
te veel tijd kosten om elk programma 


door te nemen en aan te passen. 
Heeft u dus software die niet op deze 
DCR draait zult u bij de leverancier 
van de software moeten zijn. 

Uit België kregen wij een brief van 
Frangois Vandebosch. Hij vraagt 
waar de snelladers zijn te verkrijgen 
die wij in het vorige nummer hebben 
besproken. Het beste kun je bij Gl MA 
printservice terecht. Hun adres is 
Vossenlaan 321, 6532 BE in Nijme¬ 
gen. Hun telefoonnummer is 080- 
560491 Ook vraagt hij of de ram uit¬ 
breiding 1750 zo’n versneller is. Ja 
dat is hij, zeker wanneer je veel met 
CP/M werkt. En nee het geheugen 
wordt niet langzamer. Deze cartridge 
kost ƒ 399,= en is verkrijgbaar bij 
elke Commodore dealer. Zijn vragen- 
vuur is nog niet op want hij vraagt ook 
nog of de 1581 diskdrive van Com¬ 
modore ook met de Cl28 samen¬ 
werkt. Ja Francois dat doet hij zeker. 
Met zijn massale opslagkarakter is 
dit een prima aanwinst voor de ver¬ 
zamel en ontwikkelaars onder ons. 
Zo’n drive kost ongeveer ƒ 600,= 
Voor de Power Booster van Master 
Genius zul je tot de INFO beurs in 
November moeten wachten want 
daar zal hij uiteindelijk te koop zijn. 


Arjan Benshop uit Boxtel weet niet 
waar hij software voor zijn Commo¬ 
dore 128 moet kopen. Nu Arjan wij 
hebben net bericht gekregen dat er 
in het Noorden van het land een im¬ 
porteur zit die software heeft voor 
LOW BUDGET gebruikers. De sof¬ 
ware van TEEKTRONIX kost slechts 
ƒ 35,= per diskette. Persoonlijk heb¬ 
ben wij al twee programma’s van 
deze firma mogen bewonderen. Het 
eerste programma was een kopieer- 
programma’s voor twee 1570 of 1571 
drive’s in de 80 cis mode. Het twee¬ 
de een 80 cis editor zodat u met 50 
regels kunt werkenII Dit programma 
gebruikt de nog bijna niet ontdekte 
INTERFACE mode van de 80 cis 
chip. Hun adres is: TEEKTRONIX, 
Gooilandlaan 81, 8443 BH Heeren- 
veen. U kunt deze programma’s uit¬ 
sluitend schriftelijk bestellen door 
per aangetekende brief een accept¬ 
girokaart met de ƒ 35,= op te sturen. 
En dit is zeker geen geld voor deze 
twee programma’s. Deze firma wil op 
deze manier het aantal ROOF copie- 
en tot NUL terugbrengen. Verder 
vraagt Arjan of DBASE II op de 128 
draait. Ja dat werkt prima maar DBA¬ 
SE III draait niet op de 128 in CP/M 
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mode hoor. DBASE II werkt in de 
CP/M mode veel sneller met een ram 
uitbreiding. Wie o wie weet het adres 
van de CP/M gebruikersgroep in Ne¬ 
derland. Stuur ons even een briefje 
oke! 

F. van den Berghe uit Amsterdam 

vraagt of er een MS DOS emulator 
voor de 128 verkrijgbaar is en zo ja 
waar. Na een teiefoontje met compu¬ 
ter coiiectief bleek er wel zo’n pakket 
te bestaan. Wij zullen in een volgend 
nummer dit pakket eens gaan bekij¬ 
ken. 

Ook Anten Vriend uit Reeuwijk 

heeft een vraag over de 1750 ram uit¬ 
breiding. Hij vraagt of deze ram ex¬ 
pansie module ook is in te bouwen. 
Nee Anton dat is deze module niet. 
Het is een externe module, en voor¬ 
dat je een C64 cartridge in de expan- 
siepoort kan proppen zul je eerst de 
module moeten verwijderen. Ook 
zou je bij Gima een poortexpander 
kunnen aanschaffen. Dan is dat weer 
opgelost. Moet je er alleen nog voor 


zorgen dat de C64 module uitscha- 
kelbaar is, anders zal de 128 bij het 
opstarten in de C64 mode belanden. 
Verder vraagt hij hulp bij het maken 
van een phnterdriver voor GEOS en 
een START NL-10. Wie heeft er zo’n 
driver beschikbaar zodat wij Anton 
het adres van deze persoon kunnen 
doorgeven? Stuur even een briefje. 
Hij wil met deze printerdriver met 
dubbele dichtheid kunnen printen! 

Roeland ’t Hart uit Nes a/d Amstel 

heeft problemen bij het programme¬ 
ren van een bestandsprogramma. Hij 
vraagt of wij wat routines hebben 
voor diverse zaken. Normaal zouden 
wij niet op een dergelijke vraag in¬ 
gaan, dit zou een gekkenhuis wor¬ 
den, maar bij wijze van hoge uitzon¬ 
dering komt hier de hele hap. Het 
verzorgen van een melding op het 
scherm, bij het openen van een seq 
file, zonder dat u de gegevens kwij¬ 
traakt kunt u bijvoorbeeld op de on¬ 
derstaande manier oplossen. Open 
kanaal 15 voor in uw programma, 
wanneer u nu een file gaat openen 


dient u direct te testen of deze file wel 
op disk staat. Je zou dat zo kunnen 
oplossen. 

open 5,8,5,"(naam),s,r": input#15,ff:if 
ffoO then prinf'Error opening 
file!!":close5: goto( opnieuw 
invoeren van de filenaam) 

Om een error van de printer te kun¬ 
nen opvangen zou je het volgende 
kunnen doen. Plaats dit stukje er¬ 
gens in de listing en roep het met een 
gosub aan voordat je data naar de 
printer wilt sturen. 

10002 ti$="000000" 

10003 close 4:open4,4,4:close4;if 
st=-125 or st =-128 then goto 
10004:else return 

10004 printchr${147)"Uw printer 
staat niet aan!!":sleep1 :goto 
10003 

10005 if ti$"000010"then end: else 
sleepl :goto 10003 


JOHAN & JOHAN. 



SETTLE LIGHT SOFT’S 

DAMMEN 

Eindelijk een tegenstander op niveau! 

* Nederlandse handleiding met regels en taktische tips 

* demonstratie-partijen 

* invoeren van zetten met toetsen, cursor of joystick 

* terugnemen van vorige zet 

* zelf opzetten van standen 

* computer speelt zwart of wit 

* spiegelen van bestaande stand 


In de betere computershop voor 

ƒ 37,50 (cassette) 
ƒ 45,^— (diskette) 


incl. BTW 
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Dit keer in de hardware hoek van Triple 128 de bouw van een RS232 interface, plus 
de bouw van een zogenaamde null modem kabel om twee computers met elkaar te 
verbinden. Het geheel zal zelfs door personen met zeer weinig ervaring in het bouwen 
van computer hardware, eenvoudig na te bouwen zijn. 


HET RS232 INTERFACE. 


H et RS232 interface is de tegenhanger van het Centronics parailelie inter¬ 
face. In tegenstelling tot het Centronics interface is RS232 dan ook 
seriële datacommunicatie. Dit houdt in dat alle bits een voor een over de ka¬ 
bel worden gestuurd/ontvangen. Het voordeel van deze manier van data¬ 
transport is dat er minder bedrading tussen de apparatuur hoeft te liggen. 
Bij een Centronics parallel interface wordt er gebruik gemaakt van acht da¬ 
talijnen en bij een RS232 verbinding slechts twee. 


Het grote voordeel van RS232 is dat 
het een van de weinige dingen op het 
computergebied is die is gestandari- 
seerd. De RS232 verbinding wordt 
vooral gebruikt bij het aansluiten van 
een modem. Er zijn ook printers die 
van een RS232 interface zijn voor¬ 
zien. De RS232 verbinding kan ook 
gebruikt worden om twee computers 
met elkaar te laten communiceren. 

RS232 op de 128 

Voor het RS232 interface is in de 
CBM128/D alleen de software aanwe¬ 
zig. Dit wil zeggen dat er in de kernal 
van de computer software aanwezig is 
om een RS232 verbinding te onder¬ 
steunen. Er is echter geen hardware 
aanwezig voor een RS232 verbinding. 
In deze rubriek zullen wij een oplos¬ 
sing geven om zelf zeer eenvoudig 
zo’n interface te maken. Het door ons 
omschreven interface zal op de user- 
poort moeten worden aangesloten. 
Via het interface en uiteraard de user- 
poort kunt U dan ook met RS232 gaan 
werken. Met ons RS232 interface zal 
dit geen probleem meer zijn. 

Het interface 

Men heeft bij Commodore ook een 
seriële poort op de userpoort aange¬ 
bracht. U kunt hier de verschillende 
RS232 signalen over de datalijnen la¬ 
ten lopen. Het enige wat dan nog een 
probleem oplevert is dat de officiële 
RS232-signalen een nivo van 12V 
hebben. De op de userpoort aanwezi¬ 
ge signalen zijn echter van een 5V 
nivo. Door een SN7404 te gebruiken 
kunnen we deze 5V aanbieden aan 
een 12V circuit, en andersom kunnen 
we door middel van een zenerdiode 
de 12V begrenzen tot -i-- 5V. Dit zijn de 


enige wezenlijke aanpassingen die er 
plaats moeten vinden. Er moet natuur¬ 
lijk ook nog een officiële RS232 con- 
nector geplaatst worden om alle appa¬ 
ratuur en kabels aan te kunnen slui¬ 
ten. 

Benodigdheden 

Om het interface te bouwen zijn de 
volgende componenten (lees onder¬ 
delen) nodig. 

-1 userpoort connector 
-1 RS232 connector (sub D 25 polig 
male) 

-1 weerstand van 560 ohm 
-1 zener diode van 4,7V 
-1 IC voetje 14 pens 
-1 IC type SN 7404 
- printmaterlaal (fotogevoelig of 
gaatjesprint) 

De componenten zullen in elke elec- 
tronicawinkel verkrijgbaar zijn. De 
componenten kunnen op een gaatje¬ 
sprint of op een zelf geëtst printje wor¬ 
den gemonteerd. 


De bouw 

Infig. 1 is het bedradingsschema van 
het interface geplaatst. Dit kan ge¬ 
bruikt worden om de schakeling op 
een gaatjesprint te monteren. De in 
fig. 2 afgebeelde tekening is de lay- 
out van het sporenplan, van de sol- 
deerzijde gezien. Deze afbeelding 
kan gebruikt worden om een ontwerp 
van het interface te maken ten behoe¬ 
ve van het fotografisch maken van de 
print. U zal in de vakhandel nog wel 
een paar vellen met wrijfsymbolen 
moeten ophalen omdat de afbeelding 
niet schaal 1:1 is en uitsluitend ter il¬ 
lustratie dient. Als de draden , die aan 
de print gesoldeerd moeten worden, 
geplaatst zijn is het interface klaar 
voor gebruik. Wanneer u een modem 
aan wilt sturen (onder andere ons 
Quatro, Teletron PC en de diverse ex¬ 
terne Discovery modems) dient u ook 
nog enige andere controle signalen 
aan te sluiten. De pennen die voor 
deze signalen moeten worden door- 



Fii’. /. bedradingsschema interface 
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Fig. 2. lay-out sporcnplan 


verbonden kunt U in tabel 1 vinden. 
Voor de verbinding tussen de twee 
connectoren kunt U het beste geen 
draad gebruiken met een zogenaam¬ 
de harde kern. Deze is namelijk niet 
zo soepel en zal in het algemeen snel¬ 
ler op de aangesoldeerde plaatsen af¬ 
breken. Als u een verbinding tussen 
twee computers wilt maken Is het 
mischien makkelijk om een stuk zoge¬ 
naamde flatcable te gebruiken. 

De praktijk 

Wij hebben het interface uitgetesf op 
verschillende apparaten. Ten eerste 
hebben wij van het interface gebruik 
gemaakt om te communiceren met 
een modem. Dit ging geheel vlekke¬ 
loos (met de extra verbindingen). Ten 
tweede hebben we een IBM PC met 
een C128 verbonden en de Cl28 als 
terminal gebruikt. Ook dit ging uitste¬ 
kend. Om echter een verbinding tus¬ 
sen twee computers te realiseren is 
een speciale kabel nodig, de null mo¬ 
dem kabel, maar hier komen we zo op 
terug 

RS232 in de praktijk 

Doordat de computersystemen tegen¬ 
woordig veel goedkoper zijn dan in het 
verleden komen ook de iets geavan¬ 
ceerde apparaten in het bereik van de 
computerhobbyist. Deze stap heeft in 
de praktijk nog wel enige voeten in de 
aarde omdat alle programmatuur wel¬ 
ke men voor het ene systeem heeft 
ontwikkeld op het andere systeem on¬ 
bruikbaar zal zijn. Het zal in de prak¬ 
tijk echter mogelijk zijn om, na enige 
oefening, op de nieuwe computer de 
software aan te passen. Het grote pro¬ 
bleem zijn dan nog de databestanden. 
Want deze kunnen niet zondermeer 
ingelezen worden. De enige oplossing 
lijkt dan het opnieuw invoeren van de 
data. Dit zal echter bij grote databe¬ 
standen vele man-/vrouwuren kosten. 
Maar wanneer u over een verbinding 
tussen de twee computers beschikt. 
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kunt u de computer het werk laten 
doen. Wanneer u een RS232 verbin¬ 
ding tussen de twee computers maakt 
kunt u de data over deze kabel naar 
de andere computer overseinen. 
Deze methode is stukken sneller, en 
kost zeker minder energie. 

Conclusie 

Al met al hopen wij u hier een goedko¬ 
pe oplossing geboden te hebben om 
zelf een RS232 Interface te maken. U 
kunt voor ongeveer 35 gulden een in¬ 
terface maken wat een vergelijkbare 
winkelwaarde van een kleine 100 gul¬ 
den heeft. 

De null modem kabel 

Om tussen twee computers te kunnen 
communiceren dient u over een zoge¬ 
naamde null modem kabel te be¬ 
schikken. Deze kabel zorgt er voor dat 
de beide computers op de juiste ma¬ 
nier met elkaar verbonden worden. 
Deze kabel is gebaseerd op de 
RS232 standaard. Wanneer u een an¬ 
dere computer op de CBM 128/D wilt 
gebruiken zult U ook het RS232 inter¬ 
face, elders in deze rubriek, moeten 
bouwen. Als u een verbinding tussen 
twee CBM 128/D’s wilt maken zult u 
dus twee RS232 interfaces nodig heb¬ 
ben en een null modem kabel. Als u de 
verbinding alleen voor twee CBM 
128/D’s wilt gebruiken kunt u beter de 
interfaces direct volgens het null mo¬ 
dem principe aan elkaar solderen. Dit 
scheelt vier sub D connectoren. 


11 2 3 4 5 e 7 8 9 le 11 12 
B C D E F H J K L H H 

A Ground 
B Received Data 
C Received Data 
D Request to send 
E Data Terminal ready 
F Ring indicator 
H Received line signal 
K Clear to send 
L Data set ready 
M Transmitted data 
N Ground 

0 0 0 0 0 C 0 0 0 0 0 0 0 
1 2 3 7 13 

H 25 

000000000000 


1 Ground 

2 Transmit 

3 Receicve 

4 Request to send 

5 Clear to send 

6 Data set ready 

7 Ground 

8 Received line signal 

9 + 12V 

20 Data terminal ready 

De bouw van de kabel 

De null modem kabel bestaat uit twee 
connectoren die op een bepaalde ma¬ 
nier met elkaar verbonden moeten 
worden. Hoe de verschillende pennen 
met elkaar verbonden moeten worden 
vindt u in fig. 3. De connectoren zijn 
van het type sub D 25 polig female. U 
zult deze kabel nodig hebben om tus¬ 
sen PC en Cl 28, of tussen een Amiga 
en een Cl28 te kunnen communice¬ 
ren. Maar ook voor de communicatie 
tussen de Amiga en de PC. Zoals u 
ziet is voor de Amiga vrienden onder 
ons deze kabel ook zeer aantrekkelijk. 
De benodigde programmatuur zult u 
zelf moeten ontwikkelen. Maar wan¬ 
neer blijkt dat er helemaal niemand is 
die het voor elkaar krijgt zullen wij in 
een volgend nummer de oplossing 
plaatsen. De naam is al bekend en zal 
INFO-COM zijn. Schrijf ons wanneer 
u behoefte hebt aan een goed termi- 
nalprogramma. Wij zullen dit pro¬ 
gramma dan voor een kleine vergoe¬ 
ding op disk aanbieden. Blijft er over 
om te vermelden dat alle handelingen 
door ons persoonlijk zijn getest en dat 
zowel het Interface als de kabel per¬ 
fect werken. Ga nu niet als een gek 
zitten knoeien met de soldeerbout 
maar vraag om hulp als u er niets van 
bakt! Die zal u graa'g willen helpen bij 
het bouwen van de hardware. 

JOHAN & JOHAN. 
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Deze keer behandelen we een karakterset voor de 80 cis mode. De meeste personen 
blijken in de praktijk toch nog enige moeite te hebben met het gebruiken van eigen ka¬ 
rakterset. Het in dit nummer behandelde programma lijkt een prima hulp. Bekijk het 
maar eens goed en ook u zult het vanaf nu begrijpen. In ieder geval veel plezier met 
ons programma. 


WAAROM EEN 
KARAKTERSET? 

H et zelf definiëren van deze karakterset is niet eenvoudig. De meeste men¬ 
sen kunnen het op het 40 cis nog wel voor elkaar krijgen, vooral ook om¬ 
dat er op het gebied van de 40 cis chip enorm veel lectuur op de markt is. 
Met de 80 cis chip is dit nog niet het geval. Maar omdat een eigen karakter¬ 
set zeer mooi is plaatsen wij in dit nummer een IBM achtige karakterset. In¬ 
tikken en runnen is vaak al voldoende. 


De standaard karakterset van de cbm 
128 is niet echt de mooiste. In veel 
programma’s zult u een eigen karak¬ 
terset tegenkomen. Waarom komen 
wij zo weinig eigen karaktersets te¬ 
gen? Zeker omdat bijna niemand er 
kaas van gegeten heeft. Daar zullen 
wij dan maar direct korte metten mee 
maken. En geloof ons, deze IBM ach¬ 
tige karakterset zult u vanaf nu vaker 
tegenkomen. 

Het 80 CLS. 

Het 80 cis heeft intern in de CBM 128 
zijn eigen VideoRAM (VRAM). Dit is in 
de oudere CBM128/D 16Kb groot. In 
de nieuwe CBM 128DCR is hij 64Kb 
groot. Jazeker, elke 128/DCR heeft 
een VDC RAM van 64 echte kilobytes! 
In een volgend nummer komen we 
hierop terug. In dit geheugen worden 
alle gegevens van een beeld opgesla¬ 
gen. Tevens zijn er in dit video RAM 
twee karaktersets aanwezig. Namelijk 
de gewone karakterset en een Inver¬ 
se karakterset. Deze is aangebracht 
om ook de inverse karakters snel op 
het scherm te kunnen laten verschij¬ 
nen. 

Het geheugen is als volgt georgani- 
S66rd! 

$0000-$07cf Video RAM 
$0800-$0fcf Attribuut-RAM 
$2000-$3fff CHARROM (kar.-set) ; 

De karakterset 

Er zijn in het VideoRAM 16 bytes ge¬ 
reserveerd voor elk karakter. Hiervan 


zijn de laatste 8 null bytes. Deze zijn 
om redenen van VDC interne aard 
aangebracht. De karakterset wordt bij 
het opstarten van de computer uit het 
CHARROM gekopieerd naar het vi- 
deoram. Ook bestaat de mogelijkheid 
om door op de CAPS LOCK toets te 
drukken de karakterset te kopiëren. 
Zoais eerder vermeld begint de karak¬ 
terset op $2000. Hiermee kunnen we 
dan een formule opstellen waarmee 
we de geheugenlocatie van elk karak¬ 
ter kunnen berekenen. 



vb: Adres = 2*4096 + (kar)*16 

Kar is hierin de ASCII waarde van het 
karakter waarvan u het adres wilt be¬ 
palen. Let wel dat dit geheugenadres j 
in het VideoRAM zit, en er niet met de 
monitor in gekeken kan worden. Zoals 
we al vermeldden staat er behalve de 
gehele karakterset op $2000 in het vi¬ 
deo RAM ook nog eens de gehele ka¬ 




rakterset in inverse achter deze nor¬ 
male karakterset. Als men echter niet 
van deze inverse karakters gebruik 
maakt kunt u hier ideaal eigen karak¬ 
ters definiëren. Dit gebeurt in sommi¬ 
ge tekstverwerkers al om bijvoorbeeld 
wiskundige symbolen op het scherm 
te laten verschijnen. 

De routine 

Nu is het enige probleem nog om de 
data van een zelf gedefinieerde karak¬ 
terset in het VideoRAM te plaatsen. 
Hiervoor hebben wij een routine ont¬ 
worpen die een karakterset van disk 
inleest en deze dan via bank 0 $2000 
naar het VideoRAM kopieert. Met eni¬ 
ge aanpassingen in het programma 
kunt u zelf ook de karakterset inladen 
en door middel van de routine de ka¬ 
rakterset kopiëren. Een nadeel is dat 
de officiële karakterset direct wordt te¬ 
ruggekopieerd als men op de CAPS 
LOCK toets drukt. Door middel van 
een simpele poke kunnen we dit ver 
hinderen. Deze poke is 

’POKE DEC( "0AC5"),128 

We hebben de PAST listing en een zo¬ 
genaamde dataloader. De FAST lis¬ 
ting (hierbij afgedrukt) zal voor diege¬ 
nen onder u die over de FAST assem- 
bler beschikken het beste gebruikt 
kunnen worden, voor diegenen die 
niet over deze FAST assembler be¬ 
schikken staat de dataloader versie 
ook nog afgedeeld. Verder hebben we 
ook nog de data van een veranderde 
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karakterset afgedrukt. Na het intikken 
zult u het resultaat zien en u zult mer¬ 
ken dat het de moeite waard was. 
Vooral voor diegenen onder u, die zelf 
wel eens programma’s schrijven die 
op het 80 cis werken zal het zeer ze¬ 
ker een opluchting zijn. Verder is er 
natuurlijk het voordeel dat deze nieu¬ 
we karakterset geen gedeelte van het 
computergeheugen afsnoept omdat 
de karakterdata in het VDC RAM op¬ 
geslagen is. 


Het opstarten 

Het opstarten van de IBM karakterset 
is vrij eenvoudig. U kunt het program¬ 
ma, de dataloader, gewoon inladen en 
runnen. De data’s die u moest intikken 
voor de karakterset worden dan in de 
binaire vorm ingeladen. U dient dus 
wel eerst de karakter basic leader in te 
laden en te runnen. Hierdoor krijgt u 
een file op disk te staan onder de 
charrset. Met deze nieuwe file werkt 
het machinecode programma verder. 


De basic loader kunt u als backup be¬ 
waren. 

De nieuwe tekens 

De nieuwe tekens kunt u wel even op¬ 
zoeken. Probeer shift-r en - maar 
eens! Ziet u wel? Probeer ook het 
pondteken eens. Dat is nu een back- 
slash ’\’. Met shift -i- en - krijgt u de vol¬ 
gende tekens; {}. 


Listing 1. De karakterset 


1000 

1005 

1010 

1015 

1020 

1025 

1030 

1035 

1040 

1045 

1050 

1055 

1060 

1065 

1070 

1075 

1080 

1085 

1090 

1095 

1100 

1105 

1110 

1115 

1120 

1125 

1130 

1135 

1140 

1145 

1150 

1155 

1160 

1165 

1170 

1175 

1180 

1185 

1190 

1195 

1200 

1205 

1210 

1215 

1220 

1225 

1230 

1235 

1240 

1245 

1250 

1255 

1260 


rem”** Karakterset voor de L-BM 128 in dt» SU cis mudw . 

. , _o __ 4 ^ '1 noQ r'AMMnnnpp tmpo 

rem 
rem' 


'** Karakterset voor de CBM 128 in 

'** door Johan a Johan in 1988 voor COMMODORE INFO. 


for x=4864 to 6912 
read a:ck=ck+a;poke x,a 
next X 


if ck<>261129 

the 

n pr 

'int" 

Fout 

in 

data's ! 1 

" : end 






data 

060, 

102, 

102, 

108, 

108, 

096, 

060, 

000, 

000, 

000, 

060, 

006 , 

062 , 

102, 

063, 

000 

data 

112, 

048, 

062, 

051, 

051, 

051 , 

126 , 

000, 

000, 

000, 

060, 

102, 

096 , 

102 , 

060, 

000 

data 

006 , 

006 , 

062, 

102 , 

102, 

102 , 

063, 

000, 

000 , 

000 , 

060, 

102 , 

126 , 

096 , 

062 , 

000 

data 

028, 

054, 

048, 

048, 

120, 

048, 

048, 

000, 

000, 

000, 

062, 

102, 

102, 

062, 

006, 

124 

data 

224, 

, 096 , 

124, 

102, 

102, 

102, 

102, 

, 000, 

, 024, 

000, 

056 , 

024, 

, 024, 

, 024, 

,124, 

, 000 

data 

012, 

000 , 

028, 

012, 

012, 

012 , 

108, 

056 , 

224, 

096 , 

102, 

108, 

120, 

108, 

102, 

000 

data 

056, 

, 024, 

024, 

024, 

024, 

024, 

060, 

, 000, 

, 000, 

000, 

236, 

126 , 

, 126 , 

, 102, 

, 102, 

, 000 

data 

000, 

000, 

252, 

102, 

102, 

102, 

102, 

000, 

000, 

000, 

060 , 

102 , 

102, 

102, 

060, 

000 

data 

000, 

, 000, 

220, 

118, 

102, 

124, 

096 , 

, 096 , 

,000, 

000, 

118, 

220, 

, 204, 

, 124, 

, 012 , 

012 

data 

000, 

000, 

236 , 

118, 

096, 

096, 

240, 

000, 

000, 

000, 

062, 

096 , 

060, 

006, 

124, 

000 

data 

048, 

,048, 

124, 

048, 

048, 

054, 

028, 

000, 

000, 

000, 

102, 

102, 

, 102, 

, 102, 

, 062, 

000 

data 

000, 

000, 

102, 

102, 

102, 

060, 

024, 

000, 

000, 

000, 

230 . 

102, 

126 , 

126, 

108, 

000 

data 

000, 

,000, 

102, 

054, 

060, 

108, 

102, 

, 000, 

000 , 

000, 

102, 

102, 

, 102, 

,062, 

, 006, 

, 124 

data 

000, 

000, 

126, 

076, 

024, 

050, 

126 , 

000, 

060, 

048, 

048, 

048, 

048, 

048, 

060, 

000 

data 

000, 

. 192, 

096 , 

048, 

024, 

012, 

006 , 

, 000 , 

, 060, 

012, 

012, 

012, 

.012, 

.012, 

. 060 , 

, 000 

data 

024, 

060, 

102, 

000, 

000, 

000, 

000 , 

000, 

000, 

000, 

000, 

000, 

000, 

000, 

255 , 

000 

data 

000, 

, 000, 

000, 

000, 

000, 

000, 

000, 

.000, 

,024, 

024, 

024, 

024, 

. 024, 

. 000, 

. 024, 

,000 

data 

102, 

102, 

102, 

000, 

000, 

000, 

000, 

000, 

102, 

102, 

255 , 

102, 

255, 

102, 

102, 

000 

data 

024, 

,062, 

096 , 

060, 

006 , 

124, 

024, 

, 000 , 

,099, 

102 , 

012, 

024, 

. 048, 

. 102, 

. 198 , 

, 000 

data 

060, 

102, 

060, 

060, 

103, 

102, 

059 , 

000, 

024, 

024, 

048, 

000, 

000, 

000, 

000 , 

000 

data 

012, 

, 024, 

048, 

048, 

048, 

024, 

012, 

.000, 

.048, 

024, 

012, 

012, 

. 012 , 

. 024, 

,048, 

, 000 

data 

000, 

102, 

060, 

255, 

060, 

102, 

000, 

000, 

000, 

024, 

024, 

126 , 

024, 

024, 

000, 

000 

data 

000 , 

. 000, 

000, 

000, 

000, 

024, 

024, 

. 048, 

. 000, 

000, 

000 , 

126 , 

. 000 , 

.000, 

. 000, 

. 000 

data 

000, 

,000, 

000, 

000, 

000, 

024, 

024, 

,000, 

000, 

006. 

012, 

024, 

, 048, 

096 , 

192, 

000 

data 

060 

,102, 

110, 

118, 

102, 

102 , 

060 , 

, 000 , 

, 024, 

056 , 

120 , 

024, 

. 024, 

, 024 

. 126 , 

, 000 

data 

060, 

, 102 , 

006 , 

028, 

048, 

102, 

126 , 

, 000, 

, 060, 

102 , 

006 , 

060, 

. 006 , 

, 102 , 

. 060 , 

, 000 

data 

006, 

,014, 

030, 

054, 

127, 

006 , 

006 

, 000 

, 126 , 

096 , 

124, 

102 

, 006 

, 102 

,060 

, 000 

data 

060, 

, 102, 

096 , 

124, 

102, 

102, 

060, 

, 000, 

. 126 , 

102, 

006 , 

012, 

.024, 

, 024, 

, 024, 

,000 

data 

060 

, 102, 

102, 

060 , 

102, 

102, 

060 

.000 

,060, 

102, 

102, 

062 

, 006 

, 102 

, 060 

, 000 

data 

000, 

, 000, 

024, 

000, 

000, 

024, 

000, 

, 000, 

,000, 

000, 

024, 

000, 

.000, 

,024, 

,024, 

. 048 

data 

014 

, 024, 

048, 

096 , 

048, 

024, 

014 

.000 

, 000, 

000, 

126 , 

000 

, 126 

, 000 

, 000 

, 000 

data 

112, 

, 024, 

012, 

006 , 

012, 

024, 

112, 

,000, 

, 060, 

102, 

006 , 

028, 

, 024, 

, 000, 

, 024, 

, 000 

data 

000 

, 000 . 

000, 

255 , 

, 255 , 

000, 

000 

, 000 

. 060, 

102, 

102, 

126 

, 102 

, 102 

. 102 

, 000 

data 

248, 

, 108, 

108 , 

124, 

102 , 

102, 

252 , 

, 000 , 

, 060. 

102, 

096 , 

096 , 

. 096 , 

. 102, 

, 060, 

. 000 

data 

252 

, 102, 

102, 

102, 

102 , 

102, 

252 

. 000 

. 254, 

102, 

096 , 

124 

, 096 

, 102 

, 254 

, 000 

data 

254, 

. 102, 

096 , 

124 , 

096 , 

096 , 

240 , 

. 000 , 

, 060 , 

102 , 

096 , 

110 , 

. 102, 

. 102, 

. 060, 

, 000 

data 

230. 

, 102, 

102 , 

126 , 

102, 

102, 

102 

, 000, 

, 060, 

024, 

024, 

024 

, 024 

, 024 

,060 

, 000 

data 

030, 

012, 

012, 

012, 

012 , 

108, 

120, 

. 000, 

230, 

108, 

108, 

120, 

, 108, 

. 108, 

. 102 , 

, 000 

data 

240, 

, 096 , 

096 , 

096 , 

096 , 

108, 

254, 

, 000, 

, 198, 

238, 

254, 

214, 

. 198, 

, 198 

, 198, 

, 000 

data 

230, 

118, 

118, 

126, 

110 , 

110, 

102, 

000, 

060, 

102, 

102. 

102, 

102, 

102, 

060, 

000 

data 

252, 

,102, 

102, 

124, 

096 , 

096, 

240, 

. 000, 

, 060, 

102, 

102, 

102, 

. 102, 

.108, 

. 054, 

, 000 

data 

252, 

102, 

102, 

124, 

120, 

108, 

102, 

000, 

06Ü , 

102, 

096 , 

060, 

006 , 

102 , 

060, 

000 

data 

126 , 

,090, 

024, 

024, 

024, 

024, 

060 , 

. 000, 

, 230, 

102 , 

102, 

102, 

. 102, 

. 102, 

. 060, 

, 000 
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Listing 1. De karakterset (vervolg) 


1265 data 230, 
1270 data 102, 
1275 data 126, 
1280 data 024, 
1285 data 112, 
1290 data 000, 
1295 data 000, 
1300 data 000, 
1305 data 204, 
1310 data 000, 
1315 data 003, 
1320 data 000, 
1325 data 000, 
1330 data 000, 
1335 data 000, 
1340 data 192, 
1345 data 007, 
1350 data 255, 
1355 data 001, 
1360 data 015, 
1365 data 240, 
1370 data 195, 
1375 data 143, 
1380 data 249, 
1385 data 227, 
1390 data 031, 
1395 data 243, 
1400 data 199, 
1405 data 255 
1410 data 255 
1415 data 255 
1420 data 207 
1425 data 255 
1430 data 255 
1435 data 255 
1440 data 255 
1445 data 231 
1450 data 255 
1455 data 153 
1460 data 231 
1465 data 195 
1470 data 243 
1475 data 255 
1480 data 255 
1485 data 255 
1490 data 195 
1495 data 195 
1500 data 249 
1505 data 195 
1510 data 195 
1515 data 255 
1520 data 241 
1525 data 143 
1530 data 255 
1535 data 007 
1540 data 003 
1545 data 001 
1550 data 025 
1555 data 225 
1560 data 015 
1565 data 025 
1570 data 003 
1575 data 003 
1580 data 129 
1585 data 025 
1590 data 153 
1595 data 129 
1600 data 231 
1605 data 143 


102,102,102, 
102,060.024, 
102,012,024, 
024,024,000, 
219,014,000, 
000,000,000, 
000,000.000. 
000,000,000, 
204,051.051, 
000,000,OOÜ, 
003,003,003, 
000,000,000, 
000,000,248, 
000,000,031, 
000,000,255, 
192,192,192, 
007,007,007, 
255.255,000, 
003.006,108, 
015,015,015 , 
240.240,240. 
153,153,147, 
207,193,204, 
249,193,153, 
201,207,207, 
, 159,131,153, 
,255,227,243, 
,231,231.231, 
,255,003,153, 
,255.035,137, 
,255,019,137 
, 207,131,207 
, 255,153,153 
,255,153,201 
,255,129,179 
, 063,159,207 
, 195,153,255 
,255,255,255 
, 153,153,255 
,193,159,195 
,153,195,195 
,231,207,207 
,153,195,000 
,255,255,255 
,255,255,255 
,153,145,137 
,153,249,227 
,241,225,201 
,153,159,131 
,153,153,195 
, 255,231,255 
,231,207,159 
,231,243,249 
,255,255.000 
,147,147,131 
,153,153.153 
,153,159,131 
,153,153,129 
,243,243,243 
,159,159,159 
,137,137,129 
.153,153,131 
,153,153,131 
,165,231,231 
,153,153,153 
,153,195,231 
,153,243,231 
,231,231,255 
,036,241,255 


102,060, 
060,102, 
048,102, 
024,024, 
000,000, 
024,000, 
255,255, 
000,000, 
204,204, 
204,204, 
003,003, 
015,015, 
248,024, 
031,024, 
255,024, 
192,192, 
007,007, 
000,000, 
120,112, 
000,000. 
000,000, 
147,159, 
204,204, 
153,153, 
135.207, 
153,153, 
,243,243. 
,231,231, 
, 153,153, 
, 153,131, 
,159,159, 
, 207,201 
, 153,195 
, 195,147 
, 231,205 
. 231,243 
,255,255 
,255,255 
,255,255 
,249,131 
,152,153 
,207,231 
,195,153 
,255,231 
,255,231 
,153,153 
.207,153 
,128,249 
,153,153 
, 153,153 
,255,231 
,207,231 
, 243,231 
,000,255 
,153,153 
,153,153 
,159,159 
,153,153 
,243,147 
,159,147 
,145,145 
,159,159 
,135,147 
,231,231 
,153,195 
,195,153 
.207,153 
,231,231 
,255,255 


024,000, 

102,000, 

126,000, 

024,000, 

000,000, 

000,000, 

255.255, 
000.255. 
051.051, 
051,051. 
003,003, 
015,015, 
024.024, 
024,024, 
024,024, 
192.192, 
007,007, 
000,000, 
096,000, 
000,000, 
000,000, 

195.255, 

129.255, 

192.255, 

207.255, 
, 153,255, 
. 147,199, 
, 195,255, 
,153,255, 
,159,159, 
,015,255, 
, 227,255, 
, 231,255 , 
, 153,255 

, 129,255 
, 249,255 
, 255,255 
, 255,255 
,255,255 
,231,255 
, 196,255 
,243,255 
,255,255 
,231,207 
,231,255 
,195,255 
,129,255 
,249.255 
,195.255 
,195,255 
,255,255 
,241,255 
, 143,255 
,255,255 
, 003,255 
,003,255 
,015,255 
,153,255 
,135,255 
,001,255 
,153,255 
,015,255 
,153,255 
,195,255 
,231,255 
,153,255 
,129,255 
,231,255 
,255,255 


198, 
102 , 
024, 
024, 
255, 
240, 
255 , 
192, 
003, 
204, 
024, 
024, 
000, 
024, 
024, 
224. 
255 , 
000 . 
000, 
,024, 

, 240 , 
, 255 , 
. 255 . 
,255, 
,255, 
, 231 , 
. 031, 
, 255 , 
,255, 
,255, 
,255, 
, 255 
, 255 
, 255 
, 195 
, 195 
, 255 
, 231 
, 153 
, 156 
,231 
, 207 
, 255 
, 255 
, 255 
, 231 
, 195 
,129 
, 129 
, 195 
,255, 
, 255 
, 195 
, 195 
, 195 
, 001 
, 195 
, 195 
, 025 
,057 
. 195 
, 195 
, 195 
, 025 
, 057 
. 153 
, 231 
,231 
, 000 


198, 
102 , 
048, 
012, 
127, 
240, 
000, 
192, 
003, 
153, 
024, 
024, 
000, 
024, 
024, 
224, 
255 , 
000, 
ÜOO , 
024. 
240, 
255 , 
255 , 
,255, 
,255, 
, 255, 
, 159 , 
,255, 
,255, 
,255, 
,255, 
,255, 
,255, 
, 255 
,207 
, 243 
,255 
, 231 
, 153 
, 153 
,231 
, 231 
, 231 
, 255 
,249 
, 199 
, 153 
, 159 
. 153 
, 153 
,255, 
, 255 
, 153 
, 153 
, 153 
, 153 
, 153 
, 231 
, 147 
,017 
, 153 
, 153 
, 153 
, 153 
, 057 
, 153 
. 207 
, 243 
, 128 


198, 
102, 
048, 
012, 
063, 
240, 
000 . 
192. 
003, 
051 , 
024, 
024, 
000 
024, 
024, 
224, 
000, 
000, 
000, 
024, 
240 , 
195 , 
195 , 
. 195, 
. 193, 
, 199 , 
. 153, 
, 019 , 
. 195, 
, 137, 
, 193, 
, 153 
,025 
, 153 
, 207 
, 243 
, 255 
, 231 
, 000 
,243 
,207 
, 243 
,231 
, 255 
, 243 
, 135 
, 249 
, 131 
,249 
, 153 
, 231 
, 129 
, 249 
, 153 
, 159 
. 159 
, 159 
, 231 
, 147 
, 001 
, 153 
. 153 
, 159 
, 153 
, 057 
, 153 
, 207 
, 243 
, 192 


214.254, 
060,024, 
096,048, 
006,012, 
031,015, 
240.240, 
000,000, 

192.192, 
003,003, 
102,204, 
031,031, 
031,031, 
000,000, 

255.255, 

248.248, 
224,224, 
000,000, 
000,000, 
000,240, 

248.248, 
240,015, 

249.193, 
. 153,159, 
, 153,129, 
, 153,153, 
, 231,231, 
, 147,135 

.129,129 
, 153,153 
,035,051 
, 159,195 
,153,153 
,153,129 
,153,153 
,207,207 
,243,243 
, 255,255 
,231,231 
,153,000 
,231,207 
,255,255 
,243,243 
,129,231 
,129,255 
,231,207 
,231,231 
,195,249 
,153,249 
,243,231 
.193,249 
,255,255 
,255,129 
,227,231 
,129,153 
, 159,159 
,131,159 
,145,153 
,231,231 
,135,147 
,041,057 
,153,153 
,153,153 
,195,249 
,153,153 
,041,001 
,195,231 
,159,207 
,249,243 
,224,240 


238,198, 
024,024. 
040,024, 
012,024, 
007,003, 

240.240, 
000,000, 

192.192, 
003,003, 
153,051, 
024,024, 
000,000, 
000,255, 
000,000, 
024,024, 
224,224. 
000,000, 
255,255, 

240.240. 
000,000, 
015,015, 

153.192, 
, 153,195, 
, 159,193, 
, 193,249 , 
.231,131, 
, 147,153, 
,153,153, 
,153,195, 
,131,243 

,249,131 
,153,193 
,129,147 
,193,249 
,207,195 
,243,195 
,255,000 
,255.231 
,153,153 
,153,057 
,255,255 
,231.207 
,231„255 
,255,255 
,159,063 
,231,129 
,153,195 
,153,195 
,231,231 
,153,195 
,231,231 
,255,255 
, 255,231 
,153,153 
,153,195 
,153,001 
,153,195 
,231,195 
,147,153 
,057,057 
,153,195 
,147,201 
,153,195 
,153,195 
,017,057 
,231,231 
,207,231 
,243,231 
,248.252 


000 
000 
000 
000 
001 
240 
000 
192 
003 
102 
024 
ÜOO 
255 
000 
024 
224 
000 
255 
240 
OÜO 
015 
, 255 
, 255 
,255 
, 131 
. 255 
,255 
, 255 
,255 
, 243 
,255 
, 255 
, 255 
, 131 
, 255 
, 255 
, 255 
, 255 
,255 
, 255 
,255 
, 255 
,255 
,255 
,255 
. 255 
, 255 
, 255 
, 255 
, 255 
,207 
, 255 
, 255 
, 255 
, 255 
, 255 
, 255 
, 255 
, 255 
, 255 
.255 
,255 
,255 
, 255 
, 255 
, 255 
,255 
, 255 
.254 
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Triple 128 


1610 
1615 
1620 
1625 
1630 
1635 
1640 
1645 
1650 
1655 
1660 
1665 
1670 
16 75 
1680 
16 85 
1690 
1700 


data 255,255,255,255.231,255,255.255,015,015,015,015,015,015,015,015 
data 255,255,255.255,000.000,000,000,000.255,255,255,255,255,255,255 
data 255,255.255.255,255,255,255,000,063,063,063,063.063,063,063,063 
data 051,051,204,204,051,051,204,204,252,252,252,252,252,252,252,252 
data 255,255.255.255,051,051,204,204,051,102,204,153,051,102,204,153 
data 252,252,252.252,252,252,252,252,231,231,231,224.224,231,231,231 
data 255,255.255,255,240.240,240,240,231,231,231,224,224,255,255.255 
data 255,255,255,007,007,231,231,231,255,255,255,255,255,255,000,000 
data 255.255,255.224,224,231,231.231.231.231,231.000.000,255,255.255 
data 255,255.255,000,000,231,231,231,231.231,231,007,007.231,231,231 
data 063,063.063.063,063.063.063,063.031.031,031,031.031,031,031,031 
data 248,248.248,240,248,248.248,248,000,OOd,255,255,255,255,255,255 
data 000.OÜÜ.000,255,255,255,255,255,255,255.255,255.255,000.000,000 
data 254,252.249,147,135.143.159,255,255,255,255,255,015,015,015,015 
data 240.240,240.240,255,255,255.255,231,231,231.007.007,255.255,255 
data 015,015.015,015,255.255,255,255,015,015,015,015,240,240,240.249 
d a t a 0 0 0 

bsave"charset",bU.p4864 to p6912 


Listing 2. Karakter leader 


1000 

1005 

1010 

1015 

1020 

1025 

1030 

1035 

1040 

1045 

1050 

1055 

1060 

1065 

1070 

1075 

1080 

1085 


rem"* * * * * * * * * * * * * * * * * ******** * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
rem"** Karakter loader voor de CBM 128 in de BQ cis mode! ** 

rem"** door Johan & Johan voor Commmodore INFO in 1988. ** 

rem"* *************************************************************** 

for x=2816 to 2936 
read a:ck=ck+a:poke x,a 
next X 

if ck< >13891 then prinffout in data ' s! I end 

data 032,081,011,169,062,141,000,255,169,000,162,019,133,218,134,219 
data 162,018,169,048,032,069,011,232,169,000,032,069,011,160,000,177 
data 218,032,067,011,200,192,008,144,246,169,000,032,067,011,136,208 
data 250,024,165,218,105,008,133,218,144,229,230,219,165,219,201,027 
data 144,221,096,162,031,142,000,214,044,000,214,016,251,141,001,214 
data 096,169,007,162,113,160,011,032,189,255,169,000,170,032,104,255 
data 169,000,162,008,168,032,186,255,169,000,170,160,019,032,213,255 
data 096,067,072,065,082,083,069,084,000 1090 sys2816 


Listing 3. Fast loader 


.1000 

bnk 0 

1155 

Ida #0 

1305 

Idx *3 

1005 

org SObOO 

1160 loop2 

jsr writedata 

1310 

tay 

1010 pntr 

equ $da 

1165 

dey 

1315 

jsr setlfs 

1015 charadr 

equ $1300 

1170 

bne Ioop2 

1320 

Ida #0 

1020 charend 

equ $lbüü 

1175 

clc 

1325 

tax 

1025 charset 

equ $3000 

1180 

Ida pntr 

1330 

Idy *19 

1030 set Ifs 

equ Sffba 

1185 

adc #8 

1335 

jsr load 

1035 setnam 

equ $ffbd 

1190 

sta pntr 

1340 

rts 

1040 setbnk 

equ $ff68 

1195 

bcc loopl 

1345 ; 


1045 load 

equ $ffd5 

1200 

inc pntr+1 

1350 name 

asc "charset 

1050 close 

equ $ffc3 

1205 

Ida pntr+1 



1055 ; 


1210 

cmp #>charend 



1060 

jsr loadchar 

1215 

bcc loopl 



1065 

Ida #%00111110 

1220 

rts 



1070 

sta $ff0Ü 

1225 ; 




1075 main 

Ida #<charadr 

1230 writedata 

Idx #31 



1080 

Idx #>charadr 

1235 writereg 

stx $d600 



1085 

sta pntr 

1240 writeloop 

bit $d600 



1090 

stx pntr+1 

1245 

bpl writeloop 



1095 

idx #18 

1250 

sta $d601 



1100 

Ida #>charset 

1255 

rts 



1105 

jsr writereg 

1260 ; 




1110 

inx 

1265 loadchar 

Ida #7 



1115 

Ida #<charset 

1270 

Idx #<name 



1120 

jsr writereg 

1275 

Idy #>name 



1125 

Idy #0 

1280 

jsr setnam 



1130 loopl 

Ida (pntr),y 

1285 

Ida #0 



1135 

jsr writedata 

1290 

tax 



1140 

iny 

1295 

jsr setbnk 



1145 

cpy #8 

1300 

Ida #0 



1150 

bcc loopl 
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PRINT-OUT C128 


Spring-in-het-veld-128 


Het programma Spring in het veld is van Y. Rozijn. 
Het is een spel voor de Commodore 128 met een 40 
koloms kleurenscherm. Het is een spel voor twee 
spelers (waar de commodore 128 er één van is), en 
wordt gespeeld op een bord van 10 bij 10 velden. Om 
de Beurt springen de spelers naar een volgend veld 
op het bord. In elk veld staat een cijfer, dat aangeeft 
over welke afstand er gesprongen moet worden. Elke 
keer als naar een veld wordt gesprongen, krijgt het 
veld een lichtere kleur. Er zijn 7 kleuren, deze staan 
rechts naast het spel weergegeven. De speler die 
naar een geel veld springt, zodat het veld wit wordt, 
krijgt dit veld in zijn bezit. Zijn beginletter, voor de 
commodore dus C, M voor mens, komt in het desbe¬ 
treffende veld te staan. De zelfde speler vervolgt het 
spel met een sprong over een afstand ven 1 . Naar 
een wit veld mag niet meer gesprongen worden. Het 
kan voorkomen dat een speler in de loop van het spel 
niet meer kan zetten, in dat geval gaat zijn beurt 
voorbij. Het betreffende veld gaat dan direct over 
naar de tegenstander, die het spel dan weer hervat 
met een sprong van 1. Als op dat moment de ander 
ook niet meer kan zetten is het spel afgelopen, win¬ 
naar is diegene die de meeste vakken in zijn (haar) 
bezit heeft. Met de joystick in poort twee kan een 
richting worden gekozen om te springen. Is er geen 
zet mogelijk dan moet je op de vuurknop drukken. 

1 ram ****************************** 
**** 

2 ram ** spring in@t veld 

** 

3 rem ** door y.rozijn, amstardam 

ir it 

4 rem ** cl28/40kol. kleurenscherm 

** 

5 rem ****************************** 

* ** * 

10 gosub860:go8ub980 

i 20 do:gosub640:do:gosub420:loopuntilg 

X:gosub580:loop 

i 30 rem **** test hoogste buur **** 

^ 40 f=0;ifi>=hthenifa(i-h,j)>fthenk=i- 

h:l=j:f=a(k,l) 

50 ifi<=9-hthenifa(i+h,j)>fthenk=i+h: 

l=j;f=a(k,l) 

60 ifj>=hthenifa(i,j-h)>fthenk=i:l=j- 

h:f=a{k,l) 

70 ifj<=9-hthenifa(i,j+h)>fthenk=i:l= 

j+h:f=a(k,1) 

80 return 

90 rem **** test vastzetten **** 

100 h=l:gosub30:iff=0ands(c)>=s(3-c)th 

enf=7 

110 iff>0thena=6;b=f;el8ea=0:b=l 

120 return 

130 rem **** bepaal beste zet **** 

; 140 a=a(i,j):b=d(i,j):h=4>:ifa=0thenrat 

um 

1 150 i£a<6thenbegin 

i 160 i£b=danda>=eande>0thena=:5 :b=7 

! 170 : gosubSO 

180 : if£=0thengosub90:elsei££=6thena= 

0:i=k:j=l:h=l:gosub30:b=8-f 
bend:elsego sub9 0 
a=10*a+b: i£a<zathenretum 


210 ifa>zathenp=l:el8ep=p+lrifrnd(1)*p 
>lthenreturn 
220 za=a:zc=z:return 

230 rem **** cl28 zet **** 

240 8pritel,l,16:d=d(x,y):a=a(x,y);za= 

0;zc=0:p=l;ifwthan8leep2;w=0 
250 ify>=dthenz=l:i=x:j=y-d:gosubl30 

260 ifx<=9-dthenz=3:i=x+d:j=y:gosubl30 
270 ify<=9-dthenz=5:i=x:j=y+d:gosubl30 
280 ifx>=dthenz=7:i=x-d;j=^:gosubl30 
290 ifzc=0thenzc=128:sleep2 

300 z=zc:spritel,0:return 

310 rem **** mens zat **** 

320 z$="":d=d(x,y):poke209, 0 

330 ifx>=dthanifa(x-d,y)>Othenz$=z$+ch 
r$(7) 

340 ifx<=9-dthenifa(x+d,y)>0thenz$=z$+ 
chr$(3) 

350 ify>=dthenifa(x,y-d)>Othenz$=z$+ch 
r$(l) 

360 ify<=9-dthenifa(x,y+d)>0thenz$=zS+ 
chr$(5) 

370 ifz$=""thanz$=chr$(128) 

380 t=l:do;loopwhilejoy(2) 

390 do:spritel, 1,k(t) :z=joy(2):x$=chrS 
(z):t=t+l:ift>7thent=l 
400 : gatt$:ift$=f$thengosub230:x$=chr 

$(z):w=l 

410 loopuntilinstr(z$,x$):spritel,0:re 
turn 

420 rem **** zet **** 

430 c=3-c;colorl,16:charl,28,3,c$(c):i 
=fre(l) 

440 movesprl,20*x+23,20*y+49:oncgosubZ 
30,310 

450 ifz=ltheny=y-d:alseifz=3thenx=x+d: 

elseifz=5thany=y+d:elaaifz=7thenx= 
x-d 

460 a=a(x,y):d^d(x,y) 

470 ifz=128thenbegin:ifqpthenqx=-l:ret 
um 

480 : ifa=0than8(c)=8(c)-1 

490 : a=6:o=3-c:qp=l 

500 bend:elsegp=0 
510 ifa<6thenbegin 

520 : a=a+l:colorl,k(a):gshapea$(d) , 20 

*x,20*y 

530 bend:elsebegin 

540 : a=0:colorl,k(7):gshapeaS(7+c),20 

*x,20*y:d(x,y)=1:8(c)=8(c)+l:c=3-c 
550 bend 

560 a (x,y)=a:colorl,16:fori=lto2:charl 

,32,10+5*i,right$(strS(s(i)),2):ne 
xt 

570 return 

580 rem **** einde **** 

590 fori=3to5:charl,28,i,"[8xSPACE]":n 
ext:do:loopwhilejoy(2):colorl,11 
600 charl,26,22,"druk[SPACE]vuur":char 
1,26,23,"voor[SPACE]nog":charl,26, 
24,"een[SPACE]spel[SPACE]" 

610 i=4+8gn(s(2)-s(1)):t=l 

620 do:colorl,k(t):charl,28,4,c$(i):t= 
t+1:ift>7thent=l 

630 loopuntiljoy(2)=128:return 
640 rem **** spel init **** 

650 colorl,k(1):graphicl, 1 
660 fory=0to9:forx=0to9 

670 : i=int (md(l) *5)+1: d(x, y)=i :a (x, y 

}=1:gshapeaS(i),20*x,20*y 
nextx,y 


190 

200 


680 
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690 colorl, 16 :with2 :drawl, 202,0^:0202, 1 
99 

700 £ork=lto7:colorl,k(k):gshapaa$(0), 
300,200-20*k:noxt 

710 colorl,16:fori=ltol5:charl,36,i+7, 
micl$ ("kleurenvolgorda" , i, 1) rnext 
i 720 drawl,284,199to284,55:drawl,202,55 

ï to319,55:drawl,202,170to284,170 

I 730 drawl,202,10to319,10:charl, 27,8, "a 
I antal":charl,27,9,"velden" 

740 charl,26,10,"in[SPACE]bezit:":gsha 
I pea$(8),236,100:charl,26,15,"c-128 

1 :[SPACE]0" 

ï 750 g8hapea$(9),236,140:charl,26,20, "m 
ens[SPACE]:[SPACE]0" 

i 760 charl,26,22,"kijk[SPACE]goed":char 
1,27,23,"voordat":charl,26,24,"je[ 

I SPACE]speelt" 

I 770 movesprl,23,49:spritel,1,16,0,0,0, 
i 0:charl,26,0,"springin@tveld" 

I 780 ifcl=0thenbegin 

I 790 : charl,29,2,"wilt[SPACE]u":charl, 

I 28,3,"beginnen?":t=l 

^ 800 : do:colorl,k(t):charl,30,4,"j/n": 

i t=t+l:ift>7thent=l 

I 810 : : getx$ : cl=:instr (" jn" , x$) 

I 820 : loopuntilcl:£ori=2to4:charl, 28, i 

,"[9XSPACE]":next 
ï 830 bend:elsecl=3-cl 

I 840 s(1)=0:s(2)=0:x=0:y=0:gx=0:colorl, 

I 16:gshapec$(0),228,34:c=cl 

I 850 return 

i 860 rem **** init **** 

I 870 colorO, 1:colorl,1:color4,1:graphic 
l,l:withl 

880 circlel, 12,11,7,7 rpaintl, 12,11: sha 
pea$(0),4,3,20,19 

890 £ori=lto5: charl, l,l,ohr$(48+i), 1:8 

hapea$(i),4,3,20,19:next 

900 charl,1,1,"c",1:shapea$(8) , 4,3, 20, 
19 

I 910 charl,1,1,"m",1:ahapea$(9),4, 3,20, 

I 

I 920 scnclr:circlel,12,11,8,8:Bhapet$,3 
,2,26,22:sprsavet$,1 

930 scnclr:charl,0,0,"aan[SPACE]zet":8 
hapec$(0),0,0,55,7:£$=chr$(133):ka 

I yi,f$ 

I 940 dima(9,9),d(9,9):£ori=lto7:readk(i 

):next:£ori=lto5:readc$(i):next 
I 950 x=rnd(-ti):return 

I 960 data 3,5,15,6,4,8,2 

1 970 data "c-128[SPACE]is","[SPACE]u[SP 

ACE]bent[SPACE]","c-128[SPACE]wint 
","gelijkspel","[2xSPACE]u[SPACE]w 
int[2XSPACE]" 

980 rem **** instrukties **** 
i 990 colorO,1:color4,1:color5,8:printch 
[ r$(ll)chr$(14):graphic0,l 

I 1000 print"[3xSPACE]S[SPACE]P[SPACE]R[S 
I PACE]I[SPACE]N[SPACE]G[3xSPACE]I[S 

( PACE]N[3XSPACE]@T[3xSPACE]V[SPACE] 

I E[SPACE]L[SPACE]D":print:color5,2: 

I rv$=chr$(18) 

I 1010 print"Spring[SPACE]in[SPACE]'t[SPA 
j CE]veld";:color5,16:print"[SPACE]w 

ordt[SPACE]gespeeld[SPACE]op[SPACE 
]een[SPACE]bord[SPACE]van"; 

1020 print"[SPACE]10x10[SPACE]velden.[S 
PACE]Om[SPACE]de[SPACE]beurt[6xSPA 
CE]springen[SPACE]de[SPACE]spelers 


[SPACE] (Cl2 8[SPACE]en[SPACE]Men s) [ 
SPACE]"; 

1030 print"naar[SPACE]een[SPACE]volgend 
[SPACE]veld.[SPACE]Dat[SPACE]gaat[ 
SPACE]horizontaal[2xSPACE]o£[SPACE 
]vertikaal;[SPACE]een[SPACE]cij£"; 

1040 prinfer [SPACE] op [SPACE] elk [SPACE] 
vald[4xSPACE]geeft[SPACE]de[SPACE] 
afstand[SPACE]aan[SPACE]waarover[S 
PACE]gesprongenmoet[SPACE]word"; 

1050 prinf'en.":print:print"Als[SPACE]n 
aar[SPACE]een[SPACE]veld[SPACE]wor 
dt[SPACE]gesprongen[SPACE]dan[2xSP 
ACE]krijgt[SPACE]dat"; 

1060 print"[SPACE]veld[SPACE]een[SPACE] 
lichtere[SPACE]kleur.[SPACE]De[2xS 
PACE]volgorde[SPACE]van[SPACE]de[S 
PACE]kleuren[SPACE]ia:":print 

1070 £ork=lto7:color5,k(k):printrv$"[4x 
SPACE]"chr$(29);:next:print:color5 
,16:print 

1080 print"Deze[SPACE]volgorde[SPACE]st 
aat[SPACE]ook[SPACE]rechts[SPACE]o 
p[SPACE]het[3xSPACE]speelbord.":pr 
int 

1090 print"Iemand[SPACE]die[SPACE]naar[ 
SPACE]een[SPACE]";:color5,8:print" 
geel[SPACE]";:color5,16:print"veld 
[SPACE]"; 

1100 print"springt[3xSPACE](dat[SPACE]d 
us[SPACE]";:color5,2:print"wit[SPA 
CE]";:color5,16:print"wordt)[SPACE 
]"; 

1110 print"krijgt[SPACE]dat[SPACE]veld[ 
SPACE]in[2xSPACE]bezit.[SPACE]Deze 
Ifde[SPACE]speler[SPACE]vervolgt[S 
PACE]daarna[2xSPACE]het[SPACE]"; 

1120 print"spel[SPACE]met[SPACE]een[SPA 
CE]sprong[SPACE]van[SPACE]1.":prin 
t 

1130 color5,15:print"[2xSPACE]"rvS"[2xS 
PACE]Druk[SPACE]op[SPACE]een[SPACE 
]toet s[SPACE]voor[SPACE]vervolg[2x 
SPACE]";:getkeyx$:print 

1140 colorS,16:scnclr:print"Naar[SPACE] 
een[SPACE]";:color5,2:print"wit[SP 
ACE]";:color5,16 

1150 print"veld[SPACE]mag[SPACE]niat[SP 
ACE]mee r[SPACE]ge-[5xSPACE]spronge 
n[SPACE]worden.[SPACE]Als[SPACE]ee 
n[SPACE]speler[SPACE]daardoor" 

1160 print"niet[SPACE]meer[SPACE]kan[SP 
ACE]zetten,[SPACE]dan[SPACE]gaat[S 
PACE]diens[4xSPACE]beurt[SPACE]voo 
rbi j . " 

1170 prinf’Het[SPACE]betreffende[SPACE] 
veld[SPACE]gaat[SPACE]naar[SPACE]d 
e[SPACE]tegen-stander,[SPACE]en[SP 
ACE]die[SPACE]vervolgt[SPACE]da"; 

1180 prinf'n[SPACE]het[SPACE]spel[3xSPA 
CE]met[SPACE]een[SPACE]sprong[SPAC 
E]van[SPACE]1.":print:print"Als[SP 
ACE]nu[SPACE]ook[SPACE]de[SPACE]an 
der"; 

1190 print"[SPACE]niet[SPACE]meer[SPACE 
]kan[SPACE]zettendan[SPACE]is[SPAC 
E]het[SPACE]spel[SPACE]afgelopen." 
:print"Winnaar[SPACE]is[SPACE]"; 

1200 print"degene[SPACE]met[SPACE]da[SP 
ACE]mee ste[SPACE]velden[2xSPACE]in 
[SPACE]bezit.":print:print 
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1210 eolorS,4:print"Een[SPACE]richting[ 

SPACE]kiezen[SPACE]gaat[SPACE]met[ 

SPACE]de[SPACE]joystick(in[SPACE]p 
ort[SPACE]2).":print 1240 

1220 prinf'Als[SPACE]je[SPACE]niet[SPAC 
E]kunt[SPACE]zetten[SPACE]druk[SPA 
CE]dan[SPACE]op[SPACE]de[2xSPACE]v 1250 

uurknop.":print 

1230 prinf’Druk [SPACE] op [SPACE] de [SPACE ** EINDE LISTING sprinqinveld ** 

]F1[SPACE]toet8[SPACE]als[SPACE]je 


regel 

1 

35 

regel 

220 

57 

regel 

480 

235 

regel 

740 

214 

regel 

1000 

45 

regel 

2 

71 

regel 

230 

176 

regel 

490 

113 

regel 

750 

212 

regel 

1010 

63 

regel 

3 

152 

regel 

240 

182 

regel 

500 

169 

regel 

760 

42 

regel 

1020 

71 

regel 

4 

148 

regel 

250 

213 

regel 

510 

114 

regel 

770 

234 

regel 

1030 

162 

regel 

5 

35 

regel 

260 

187 

regel 

520 

224 

regel 

780 

158 

regel 

1040 

234 

regel 

10 

147 

regel 

270 

190 

regel 

530 

60 

regel 

790 

235 

regel 

1050 

71 

regel 

20 

35 

regel 

280 

218 

regel 

540 

62 

regel 

800 

82 

regel 

1060 

121 

regel 

30 

118 

regel 

290 

16 

regel 

550 

23 

regel 

810 

154 

regel 

1070 

223 

regel 

40 

55 

regel 

300 

61 

regel 

560 

163 

regel 

820 

216 

regel 

1080 

55 

regel 

50 

185 

regel 

310 

5 

regel 

570 

142 

regel 

830 

158 

regel 

1090 

161 

regel 

60 

214 

regel 

320 

222 

regel 

580 

68 

regel 

840 

63 

regel 

1100 

26 

regel 

70 

186 

regel 

330 

73 

regel 

590 

132 

regel 

850 

142 

regel 

1110 

185 

regel 

80 

142 

regel 

340 

42 

regel 

600 

36 

regel 

860 

19 

regel 

1120 

191 

regel 

90 

55 

regel 

350 

68 

regel 

610 

165 

regel 

870 

0 

regel 

1130 

90 

regel 

100 

214 

regel 

360 

45 

regel 

620 

21 

regel 

880 

68 

regel 

1140 

128 

regel 

110 

135 

regel 

370 

137 

regel 

630 

79 

regel 

890 

71 

regel 

1150 

167 

regel 

120 

142 

regel 

380 

209 

regel 

640 

71 

regel 

900 

202 

regel 

1160 

68 

regel 

130 

234 

regel 

390 

148 

regel 

650 

183 

regel 

910 

213 

regel 

1170 

198 

regel 

140 

89 

regel 

400 

195 

regel 

660 

107 

regel 

920 

180 

regel 

1180 

31 

regel 

150 

114 

regel 

410 

199 

regel 

670 

168 

regel 

930 

212 

regel 

1190 

171 

regel 

160 

158 

regel 

420 

210 

regel 

680 

95 

regel 

940 

119 

regel 

1200 

94 

regel 

170 

42 

regel 

430 

209 

regel 

690 

164 

regel 

950 

38 

regel 

1210 

101 

regel 

180 

4 

regel 

440 

112 

regel 

700 

47 

regel 

960 

45 

regel 

1220 

212 

regel 

190 

28 

regel 

450 

59 

regel 

710 

99 

regel 

970 

122 

regel 

1230 

54 

regel 

200 

182 

regel 

460 

4 

regel 

720 

222 

regel 

980 

68 

regel 

1240 

49 

regel 

210 

67 

regel 

470 

251 

regel 

730 

9 

regel 

990 

79 

regel 

1250 

114 


[SPACE]wil[SPACE]dat[SPACE]het[2xS 
PACE]programma[SPACE]een[SPACE]zet 
[SPACE]voor[SPACE]j ou[SPACE]"; 
print"doet.":color5,15:char1,1,24, 
"[7xSPACE]Druk[SPACE]nu[SPACE]op[S 
PACE]de[SPACE]vuurknop[8xSPACE]", 1 
do: loopïintil joy (2) =128: return 


Archery-128 


Archery is een spel voor de commodore 128. Het is 
de bedoeling met een pijl en boog in de roos te 
schieten. Maar net zo als het in werkelijkheid is, het 
lijkt veel makkelijker dan het is. Allereerst moet er het 
aantal graden worden ingesteld. Dit is de boog die de 
pijl moet afleggen. Deze instelling is erg belangrijk. 
De roos loopt van boven naar beneden over het 
scherm.Op het moment dat je denkt te moeten 
schieten druk je op de vuurknop. Bij elke 250 punten 
wordt het iets moeilijker en er zijn 15 levels. De 
maker van dit schoons is Pieter Post uit Urk. 


1 

rem 

+++++++++++++++++++++++ 

2 

rem 

+++ pieter post 

+++ 

3 

rem 

+++ 

+++ 

4 

rem 

+++ urk 

+++ 

5 

rem 

++++++++++++++++++H 

H-+++ 


10 

20 

30 

40 

50 

60 

70 

99 


fast:voll5:printchr$(14)chr$(11) 
for8=lto40: l$=l$+chr$ (32) :nex't 
£or8=l'to5 :p$=p$+chr$ (192) :nex'b 
£or8=0to2:reada$(8):next:gosublOOO 
for8=4to228tep2:reada,a$:color5,rn 
d(0)*14+3:charl,a,8,a$:next 
8low:£ors=25tol8tep-l:poke53280,8: 
go8ub2000 :nex'b 

gosubllOO : f a8t:: if a$=" * "thenda=l 
rem*********8prite8*************** 
*** 


100 graphlcl, 1:drawl, 6, llt:o24,11 
110 drawl,8,llto6,9:drawl,8,llto6, 13 
120 fors=l'to4 :gosubl200 :next 
130 graphicl,1:fors=lto4:drawl, 20-8, (8 


140 

150 

160 

170 

180 

190 

199 

200 
210 
220 
230 
240 
250 
260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 


-1)*3to20-8,22-(8-1)*3:next 
boxl,19,0,24,21,,!:8=5:go8ubl200 
move8pra,280,0:aprlbea,0,10 
graphicl,1:charl,0,1,"loo":8=6 
go8ubl200:move8pr8,160,20:apritea, 
1,8 

£or8=7t:o8 : y$=" " : £orb=l'bo63 : reada$ : 
y$=y$+chr$(dec(a$)):nextt 
8pr8avey$,s:sprltea,0,10,1,1,1:mov 
espra,25,150:nexba 

rem********apelcyclu8************* 
** 

£ori=ltol5: rem(15 levels) 

£or j=l'to3 : rem(3 pogingen) 

movespr5,180#i:p=0:au=l:go8ubl220 
gosubl300:gosubl400 

£or8=lt:o4 :movesprs, 21,35+s*15 :next 
£orx=lto4: rem(4 pijlen) 

i£de=0thencharl,14,24,"bepaal[SPAC 
E]hoek",l 

colorl,2:charl,2,21,"00",1 
movesprx,43,150:h=0:slow 
i£de=0'bhendoun'bil joy (2) =1: loop 
do: soundl, h*700,2 : i£h=90'thenexi't 
h=h+3:charl,2,21,right$(str$(h),2) 
,1 

i£de'thenloopun'tilh=45: elseloopwhil 
ajoy(2)=l 

movesprx,25,150:sprite7,0:spriteS, 
1 

colorl,1:charl,0,24,1$,1 

i£dethengosubl610:goto400 

charl,13,24,"vuurknop",l:ifcthanch 

arl, 22,24, "of[SPACE]*",1 

do:geta$:loopuntila$="*"orjoy(2)>1 






380 

390 


print-out print-out print 


27 

ifa$="* "and.c=0then370 
ifa$="*"thenc=c-l :gosubl350 :goBijb2 
400:gosubl600 
400 movesprx,90#15;8prita7,l:sprite8,0 

410 gosub2200:charl,0,24,1$,1 
420 dountilrsppoB(x,0)=>250:loop 
430 movesprS,0#0:k=150-rBppoB(5,1):q=0 
440 movesprx, 0#0:nioveBprx, 270,150 
450 ifabs(k)<21thengosub2100:gosublSOO 
:elsegosub2300 

460 movesprS,180#i:spribex,0 
470 p=p+q:c%=rnd(0)*r*4 

480 Ifgaiidde=0andc%=0'thenc=c+1: gosubl3 
50 

490 colorl,2:charl,l,x*2,Btr$(q):color 
1,1 

500 nextx:sleepl:ifdethenrun 
510 £ast: au=0 : gosiibl220 :gosublSOO 
520 charl,21,0,"aantal[SPACE]punten:"+ 
right$(str$(p),3),1 
530 a=0:b=10:colorl, 2 

540 ifp=>250thena=l:ifi<15thenoharl, 33 
,10,8tr$(i+l) 

550 ifa=0thena=2:charl,32,10,str$(3-j) 
560 charl,(40-len(a$(a)))/2,b,a$(a) 

570 b=l2:colorl,1:slow 
580 lfi=15anda=lthena=0:sleepl:goto560 
590 i£j=3anda=2thena=0:sleepl:goto560 
600 l£athencharl,0,24,1$,1:else650 
610 charl,16,24,"vuurknop", 1 
620 dountiljoy(2)>127:a%=rnd(0)*16+1 

630 i£a=lthengosub2600:color4,a%:elseg 

osub2300 

640 loop:£ast:i£a=2thennextj:elsenextl 

650 i£l=15thengosub2700:elsegosub2800 

660 sleep8:£ast:go8ubl000:ke=l 
670 goaubll00:i£a$<>"*"thenrun 
680 au=0:gosubl220:graphlc0,1:list-5:a 
nd 

998 rem+++++++++8ubroutine8+++++++++++ 

++ 

999 r'em*********tjLtöl* ******* ********* 

1000 coloro,2:color4,2:graphicl, 1 
1010 £ors=lto7:a$=mid$("archery",8,1) 
1020 charl,0,l,chr$(128)+a$+chr$(128) ,1 
1030 movQsprs,0#0:movesprs,8*46-24,36 
1040 gosubl200:next8:graphic0,1:return 

1099 rem**********play***************** 

* 

1100 au=l:gosubl220:slow 

1110 do:a%=rnd(0)*14+3:b%=md(0) *7+1 

1120 play"t8i"+chrS(64+b%):spriteb%, 1, a 
%:color5,a% 

1130 i£kethencharl,6,24,"OPNIEUW=vuurkn 
op[2xSPACE]ST0PPEN=*",1:gotoll50 
1140 charl,10,24,"SPEL=vuurknop[2xSPACE 
]DEM0=*",1 

1150 geta$:loopuntiljoy(2)>127ora$="*" : 
return 

1199 rem******sprite8ubroutine8******** 

* 

1200 shapea$,0,1,23,21:sprsavea$, s 
1210 sprltes,0,1,1,1,1:return 

1220 £ors=lto7:sprltes,au:next:return 

1299 rem********op8chri£t************** 

* 

1300 colorO,16:colorl,l:graphicl, 1 
1310 charl,0,0,1$,1:charl, 0,24,1$, 1 
1320 Ifdethencharl,5,0, "demo", 1:charl, 3 


out print-out print-out 


0,0,"demo",1:return 

1330 charl,2,0,"level:"+right$(str$(i), 
2),1 

1340 charl,11,0,"poging:"+8tr$(j) , 1 
1350 charl,21,0,"o=128[SPACE]shots:"+ri 
ght$(str$(c),2),1:return 

1399 rem* ****** speelscherm* ************ 

* 

1400 with2:colorl,10 

1410 draw,300,8to300,191:colorl,1 
1420 £ors=lto4:circlel,100,45,8*5.25:ne 
xt 

1430 charl,0,1,chr$(213)+p$+chr$(201) 
1440 fors=lto7:charl,0,1+s,chr$(221) 

1450 charl,6,1+s,chr$(221):next 

1460 charl,0,9,chr$(202)+p$+chr$(203) 

1470 boxl,14,167,32,176:color4,1:return 

1499 rem*********raak****************** 

* 

1500 h=24+h/(90/42):circlel, 100+k, h, 1 

1510 r=8qr((45-h)''2+k''2) : q%=r/5.25+. 05 

1520 i£q%<5thenq=100-q%*25 

1530 i£q%thenreturn:elsegosub2500 
1540 movespr6,180#5:sleepl:movespr6,0#5 
1550 sleepl:move8pr6,0#0:return 

1599 rem*******de c=128 schiet********* 

* 

1600 charl,12,24,"de[SPACE]c=128[SPACE] 
schiet",1 

1610 c 8=150-16.2*i:i£i>9thenc8=C8+255 

1620 do:loopuntilrsppos(5, 1)<=ca 

1630 do:loopuntilrsppos(5,1)=>C8:return 

1999 rem********8ounds***************** 

* 

2000 soundl,7000,8,1,0,7000/8,2:return 
2100 soundl,3500,3,,,,2,500:return 
2200 soundl,60000,5,,,,3:retuxn 

2300 soundl,40000,20,1,0,2000, 2,3000 : re 
turn 

2400 soundl,3000,10,0,1000,100,2:return 
2500 soundl,30000,100,2,0,600,2:return 
2600 for8=lto3:£ort=lto3:soundt,3000+i* 
500,10,1,i*500,100,8:nextt,8:retur 
n 

2700 £ors=lto3:sounds, 30000, 400, 2, , 3600 
,2:next:return 

2800 £ors=lto3:sounds,8000,400,1,0,20,1 
:next:return 

2999 rem**********data titels********** 

* 

3000 datagame over,u bent toegelaten to 
t level,resterend aantal pogingen 

3010 datalS,"15[SPACE]Levels" 

3020 datalO,"joystick[SPACE]in[SPACE]po 
ort[SPACE]2" 

3030 data7,"joystick[SPACE]up[SPACE]=[S 
PACE]hoek[SPACE]bepalen" 

3040 datalO,"vuurknop[SPACE]=[SPACE]zei 
£[SPACE]schieten" 

3050 datal7,"*[SPACE]=[SPACE]C=128[SPAC 
E]shot" 

3060 data7,">=[SPACE]250[SPACE]pnt.[SPA 
CE]=[SPACE]volgend[SPACE]level" 
3070 data7,"Buitenste[SPACE]cirkel[SPAC 
E]-[2XSPACE]25[SPACE]pnt." 

3080 data24,[2xSPACE]50[SPACE]pnt.", 2 
4,[2XSPACE]75[SPACE]pnt." 

3090 data7,"Binnenste[SPACE]cirkel[SPAC 
E]-[SPACE]100[SPACE]pnt." 

3999 rem*********data bogen************ 

4000 data0,l,c0,0,l, 60,0,1,30,0,1,18,0, 













4010 datac,0,1,G,0,1,3,0,1,3,0,1,3,0,1, 
2 

4020 dataO,1,2,0,1,2,0,1,3,0,1,3,0,1,3, 
O 

4030 datal,G,0,l,c,0,l,18,0,l,30,0,l,60 

4040 data0,l,c0,0,l,c0,0,2,60,0,4,30,0, 

8 

4050 datal8,0,10,c,0,20,6,0,40,3,0,80,3 


4060 datal,O,3,2,O,2,4,O,2,2,O,2,1,0,3, 
O 

4070 data80,3,0,40,3,0,20,6,O,10,c,O,8 

4080 datal8,0,4,30,0,2,60,0,l,c0 

** EINDE LISTING archery ** _ 


regel 1 
5gel 2 
regel 3 
regel 4 
regel 5 
;gel 10 
■ egel 20 
egel 30 
regel 40 
regel 50 
egel 60 
regel 70 
regel 99 
regel 100 
regel 110 
regel 120 
regel 130 
regel 140 
regel 150 
regel 160 
regel 170 
regel 180 
regel 190 
regel 199 
regel 200 
regel 210 
regel 220 
regel 230 
regel 240 
regel 250 



108 

146 

56 

149 

108 

104 

110 

126 

154 

96 

60 

9 

39 

68 

243 
213 
246 
172 

244 
36 
133 
170 
151 
92 
2 

41 

21 

221 

14 

164 


regel 260 
regel 270 
regel 280 
regel 290 
regel 300 
regel 310 
regel 320 
regel 330 
regel 340 
regel 350 
regel 360 
regel 370 
regel 380 
regel 390 
regel 400 
regel 410 
regel 420 
regel 430 
regel 440 
regel 450 
regel 460 
regel 470 
regel 480 
regel 490 
regel 500 
regel 510 
regel 520 
regel 530 
regel 540 
regel 550 


■ 


1 — 

i 
I 






106 

regel 

560 

24 

regel 

1220 

106 

regel 

2000 

79 

219 

regel 

570 

100 

regel 

1299 

7 

regel 

2100 

201 

115 

regel 

580 

91 

regel 

1300 

255 

regel 

2200 

57 

223 

regel 

590 

42 

regel 

1310 

244 

regel 

2300 

117 

1 

regel 

600 

21 

regel 

1320 

107 

regel 

2400 

179 

181 

regel 

610 

141 

regel 

1330 

202 

regel 

2500 

137 

51 

regel 

620 

0 

regel 

1340 

207 

regel 

2600 

21 

87 

regel 

630 

243 

regel 

1350 

241 

regel 

2700 

53 

167 

regel 

640 

128 

regel 

1399 

60 

regel 

2800 

209 

103 

regel 

650 

79 

regel 

1400 

43 

regel 

2999 

240 

248 

regel 

660 

211 

regel 

1410 

181 

regel 

3000 

186 

31 

regel 

670 

124 

regel 

1420 

223 

regel 

3010 

10 

37 

regel 

680 

24 

regel 

1430 

23 

regel 

3020 

33 

118 

regel 

998 

164 

regel 

1440 

108 

regel 

3030 

154 

32 

regel 

999 

169 

regel 

1450 

98 

regel 

3040 

159 

131 

regel 

1000 

206 

regel 

1460 

31 

regel 

3050 

155 

223 

regel 

1010 

44 

regel 

1470 

66 

regel 

3060 

32 

131 

regel 

1020 

114 

regel 

1499 

70 

regel 

3070 

203 

40 

regel 

1030 

210 

regel 

1500 

156 

regel 

3080 

198 

216 

regel 

1040 

204 

regel 

1510 

217 

regel 

3090 

232 

93 

regel 

1099 

93 

regel 

1520 

88 

regel 

3999 

134 

187 

regel 

1100 

99 

regel 

1530 

153 

regel 

4000 

73 

57 

regel 

1110 

180 

regel 

1540 

243 

regel 

4010 

64 

193 

regel 

1120 

213 

regel 

1550 

37 

regel 

4020 

41 

205 

regel 

1130 

156 

regel 

1599 

189 

regel 

4030 

31 

236 

regel 

1140 

132 

regel 

1600 

99 

regel 

4040 

94 

22 

regel 

1150 

194 

regel 

1610 

8 

regel 

4050 

42 

98 

regel 

1199 

63 

regel 

1620 

190 

regel 

4060 

45 

3 

regel 

1200 

84 

regel 

1630 

132 

regel 

4070 

249 

76 

regel 

1210 

240 

regel 

1999 

175 

regel 

4080 

21N 


Te koop C-64 

Compleet met stofkap, 1530 
Datarecorder, MCS 801 printer, 
Final cartridge, KCS Power 
cartridge, spelletjes en program¬ 
ma’s, ƒ 1.080,- Tel. 01821-2888 na 
16.00 u. 


Aangeboden Printer 
Brother HR5C Matrix printer com¬ 
pleet met papier, lint, voeding, 
handleiding, ƒ. 250,- Tel.053- 
333140. 

C-16 te koop 

Met 64k uitbreiding, joystick, 
boeken, software. ƒ 600,- 
Tel.04929-61828. 

Gezocht Diskdrive 

Voor de C-64 met spoed gevraagd, 

tel.05270-14534 

Te koop Printer voor C-64 
General Electric, Letter Quality, niet 
gebruikt, incl. Interface kabel, ƒ 
350,- Tel.01879-1569. 


Kleine Advertenties 


Commodore 128 te koop 

Compleet met Diskdrive, Monitor, 
MPS Printer, ƒ 1.300,- Tel.02996- 
3342 na 18.00 u. 

Gevraagd Originele Games 
Adventure Games met handleiding 
en in Orginele verpakking. Tel. 
05437-73354 . 

Te koop C-64 

Compleet met Diskdrive, 2 joysticks 
, Power Cartirdge, Casseterec., Dis¬ 
kettes, Turbo tooi, boeken, ƒ 750,- 
Tel. 02522-10517. 

Printer te koop 

Juki 2200 met extra Daisywheel, 
Centr.interface. ƒ 500,- 
Tel.085-233323. 

Aangeboden Cr64 
Compleet met twee Diskdrive’s, kl. 
monitor, Seikosha printer en div. 
Prijs compleet ƒ 2.000,- Tel.02975- 
62229. 


Contact gezocht 

Gerrit zoekt contact met andere 

Amiga liefhebbers. Tel.010- 

4256706. 


Ml 

■I— 


C-64 te koop 

Met Diskdrive, monitor, 
corder, twee joysticks. 
4221279. 


cass.re- 

Tel.010- 


Aangeboden Originele 

Software 

Voor informatie bellen naar 02158- 
1672 na 18.00 u. 

Gevraagd C-64 

Liefst compleet met Diskdrive, ƒ 

300,- Tel.020-90865. 

Te koop C Plus/4 

Compleet met 1551 Diskdrive, 
Datarec., joystick, boeken, ƒ 450,- 
Tel.020-880164. 

















Basic Cursus 


In onze serie Basic-artikelen zijn we inmiddels al een aantal jaren aan het werk en we 
hebben daardoor een groot scala basis-onderwerpen in deze succesvolle cursus aan 
de orde kunnen stellen. 

Om alle stof die we in het verleden al of niet uitvoerig hebben behandeld nu eens ge¬ 
structureerd op een rij te zetten, begint Jan Bodzinga vanaf deze aflevering met een 
soort alfabetische excursie langs alle standaard Basic opdrachten, functies en com¬ 
mando’s. 


Basis Basic 


deel 23: Basic van A tot Z 


H et is al een hele tijd geleden, dat we voorzichtig zijn begonnen met de 
eerste les in deze cursus. Inmiddels zijn we allemaal uiteraard wel het 
één en ander wijzer geworden, zeker wat betreft het maken van programma’s 
in Basic en het werken met onze eigen computer. 



Daarom leek het me leuk, om nu per 
Basic-opdracht een zo uitgebreid mo¬ 
gelijke omschrijving te gaan geven 
van alle standaard-opdrachten. Dat 
betekent, dat we naast de omschrij¬ 
ving van het commando zelf, ook een 
hele serie voorbeelden geven van de 
manier waarop dit bepaalde comman¬ 
do kan worden gebruikt. 

Het feit, dat we in deze serie alleen de 
standaard-opdrachten van Basic be¬ 
handelen heeft een diepere oorzaak. 
Het is in deze tijd van talloze verschil¬ 
lende Basic-verises helaas niet meer 
te doen, om alle afzonderlijke dialec¬ 
ten te gaan noemen, zeker waar het 
de aparte instructies betreft, die uit¬ 
sluitend machine- of type gericht zijn. 
We zouden daardoor in een groot en 
verwarrend oerwoud van Basic-op- 
drachten verzeild raken, en daar heeft 
niemand wat aan. 

Wel kun je in alle gevallen bij de re¬ 
dactie van dit blad aankloppen met 
problemen en andere lastige onder¬ 
werpen, voorzover ze je computer be¬ 
treffen althans. We hebben daarvoor 
een hele toegewijde afdeling in het le¬ 
ven geroepen, en zullen daarom ook 
alles doen om je te kunnen helpen 
(Zie voorin dit blad bij de Colofon het 
nummer voor de listing-telefoon). Ook 
is het zo, dat juist de afwijkende, ma- ; 
chine gerichte commando’s in de 
handboeken ruimschoots aandacht I 
krijgen, terwijl juist de heel eenvoudi- | 
ge functies en opdrachten als ABS, 
PRINT en REM heel vaak worden ver- i' 
geten. j 


Waar het echt niet anders kan, zullen 
we afwijken van onze standaard-ge- 
dachte en de Commodore-64/128 be¬ 
schouwen als prototype. Dit, omdat 
deze machine(s) nog steeds bij de oe¬ 
roude basis van de echte (Commodo¬ 
re) Basic-familie behoren. Maar ge¬ 
lukkig vinden we niet erg veel heel 
specifieke instructies onder de stan- 
daard-vlag, zodat je rustig met je Ami- 
ga of PC kunt aanloggen. Want ook 
GWBasic en IBM’s BASIC(A) vallen 
gelukkig helemaal binnen de stan¬ 
daard Basic. 



Vooraf 

Voordat we beginnen met de toch wel 
omvangrijke lijst van Basic-opdrach- 
ten eerst een les met de nodige alge¬ 
mene theorie en wetenswaardighe¬ 
den. Hoewel het hier en daar niet de 
meest sappige stof is, ben ik er zeker 
van, dat in deze les het nodige te vin¬ 
den is, wat zelfs de meer ervaren Ba- 


sic-programmeur nog niet wist, en 
vanaf nu best eens zou kunnen gaan 
gebruiken in z’n eigen programma’s. 
Alle Basic-opdrachten laten we verge¬ 
zeld gaan van uitleg, voorbeelden, op¬ 
merkingen en andere details, die an¬ 
ders gemakkelijk over het hoofd kun¬ 
nen worden gezien. 

Het FORMAAT waarin de Basic-op¬ 
drachten zal worden weergegeven is 
(hoop ik) min of meer eensluidend. 
Dik gedrukt het commando (of de 
functie) waarbij wordt aangegeven of 
het een Basic-opdracht of een Basic- 
functie betreft. Deze laatste kunnen 
alleen worden gebruikt, als samen 
met de opdracht, tussen haakjes ook 
een expressie wordt meegegeven. 
Voorbeelden van functies zijn SQR, 
LOG, EXP, ABS, LEFT$, MID$ en ga 
zo maar door. In het verloop van deze 
les zullen we meer over functies ver¬ 
tellen en de serie laat ons nog genoeg 
van deze functies tegenkomen. 

Omdat voor de beginners het hier- 
voorgaande misschien ook niet veel 
anders dan abacadabra is, zullen we 
voor we in de komende les met de 
echte lijst beginnen, wat dieper ingaan 
op de wijze waarop we Basic in het al¬ 
gemeen moeten schrijven, de Basic- 
syntax zogezegd. 

Syntax 

I 

De ’syntax’ van de taal Basic, wil niet 

I veel anders zeggen, dan 'manier 

j waarop Basic moet worden beschre¬ 
ven’ ofwel ’Basic-schrijfwijze’. 
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Dat dit belangrijk is, zal iedereen kun¬ 
nen begrijpen, want de taal (Basic) | 
wordt gebruikt als communicatie tus- ' 
sen het inwendige van de computer 
en de programmeur of computer-ge- 
bruiker. Door een aaneenschakeling 
van opdrachten - of instructies- maakt 
de gebruiker aan de computer bekend 
wat er moet gebeuren. We schrijven 
met een programma als het ware een 
brief naar de microprocessor. Het ver- ! 
schil tussen een brief aan je vriend of 
vriendin en een brief aan de computer 
ligt in het feit, dat ,als je in je humane 
brief een woord verkeerd schrijft, of 
een leesteken vergeet, de ontvanger 
zonder meer wel zal begrijpen wat je 
bedoelt. Jouw brief wordt door de le¬ 
zer -ondanks de fouten- goed geïnter¬ 
preteerd. 

De computer reageert echter heel an¬ 
ders op de brief, of het programma 
waarmee hij wordt gevoerd. Als puur 
logische machine is het apparaat vol¬ 
strekt niet in staat ook maar iets te be¬ 
grijpen van jouw fouten. Hij heeft in¬ 
tern een ’vertaal-routine’, de Basic-in- 
terpreter, waarmee de pure Basic-taal 
en expressies, worden vertaald en uit¬ 
gevoerd. Bij foute commando’s laat 
het ding onmiddelijk alles in de steek, 
’denkt’ niet deze PINT zal wel als 
PRINT bedoeld zijn, maar geeft een 
onverbiddelijke ’Syntax Error’, ofwel 
schrijffout. Gelukkig reageert de com¬ 
puter dus nog enigszins op de fout, 
anders kunnen we echt lang zoeken 
naar iets onschuldigs als een verge¬ 
ten puntkomma. 

Deze Basic-syntax, die overigens veel 
lijkt op eenvoudig huis-tuin-en-keu- 
ken-engels, zal net als iedere andere 
computertaal moeten worden geleerd. 
Zonder die kennis is het niet te doen 
om een Basic programma te schrij¬ 
ven. Gelukkig is Basic één van de 
meest eenvoudig en snel te leren 
computertalen, en op dit moment zelfs 
bijna even krachtig als de wat profes¬ 
sioneler bekende talen als bijvoor¬ 
beeld PASCAL, C, of COBOL. 

Contekst 

Naast de directe schrijfwijze die we 
foutloos in ons programma moeten 
toepassen komen we bij het lezen van 
het programma nog een ander feno¬ 
meen tegen, de ’contekst’ waarin het 
commando wordt geplaatst. De op¬ 
dracht RETURN is als zodanig hele¬ 
maal goed, en niemand zal iets op de 
volgende regel aan kunnen merken: 

20 RETURN 

Als dit de eerste regel uit ons pro¬ 
gramma is, dan zitten we wel in de 


problemen, want de computer zal on¬ 
middelijk reageren met een melding 
als ‘RETURN WITHOUT GOSUB ER¬ 
ROR’ terwijl de syntax juist is. De sa¬ 
menhang waarin de opdracht is gezet 
klopt dus niet in dit geval. 

Als dit programma wat wordt uitge¬ 
breid tot: 

20 RETURN 
30 REM BEGIN HIER 
50 GOSUB 20 
60 PRINT "KLAAR" 

en we typen in plaats van RUN nu de 
opdracht RUN 30, dan zal de foutmel¬ 
ding verdwenen zijn, terwijl regel 20 
nog steeds de eerste regel van het 
programma is, en de contekst van 
deze regel is ineens in orde. Soortge¬ 
lijke problemen kunnen we verwach¬ 
ten bij opdrachten ais NEXT, GOTO, 
READ, RESTORE om nog maar te 
zwijgen over NEW. Wat ik hier het 
meest mee zeggen wil, is dat een lijst 
van opdrachten en functies natuurlijk 
niet alles zegt. Want de opdracht: 



’NEW#@#(a)#%$$#@’ 

zo ingetypt als hier staat, is qua syn¬ 
tax geheel fout, maar zal toch feilloos 
door de computer worden uitgevoerd, 
omdat na NEW niets meer komt dan 
een opnieuw leeg computergeheu¬ 
gen, dus ook NEW#@#@#%$$#@ be¬ 
staat niet meer. Aan de andere kant is 
een FOR zonder NEXT wat schrijfwij¬ 
ze betreft helemaal goed, maar zal uit¬ 
eindelijk toch niet doen wat we verlan¬ 
gen, en geeft ook voor de computer 
aan het eind van het programma forse 
problemen met ’stack-behandeling’ en 
dergelijke. 

Natuurlijk zijn ook voor de Basic-nota- 
I tie de nodige regels opgesteld, waar¬ 


bij we in deze serie uitgaan van een 
standaard, geïnsprireerd op de wijze 
waarop Backus-Naur met notaties be¬ 
zig is geweest. We nemen echter de 
vrijheid om alles een beetje losser en 
beschrijvender te nemen, zodat -naar 
ons idee- de opdrachten heel gemak¬ 
kelijk te begrijpen en toe te passen 
zijn. 

Constanten 

Nog even wat over de manier waarop 
in de meeste gevallen Basic ’konstan- 
ten’ te onderscheiden zijn van varia¬ 
belen. Zeker als je per Basic-opdracht 
het optimale profijt uit de voorbeelden 
wilt trekken, is het essentieel dat dit 
onderscheid goed wordt begrepen. 
Vooral als we onverhoopt te maken 
krijgen met numerieke waarden waa- 
i rin de letter ’E’ als aanduiding voor ex¬ 
ponent wordt gebruikt. 

Numerieke en string-konstanten wor¬ 
den gebruikt om een waarde aan het 
programma mee te geven die in alle 
gevallen dezelfde is. Vandaar ook de 
naam ’konstante’. Deze konstante 
waarden hebben we bijvoorbeeld no¬ 
dig om een lus in het programma een 
vast aantal keren uit te voeren. Of de 
waarde van ’PI’, die we als konstante 
altijd nodig hebben als we met bepaal¬ 
de wiskundige berekeningen bezig 
gaan. De notatie van deze konstante 
numerieke en alfanumeriek waarden 
wijkt nogal af van de standaard schrijf¬ 
wijze die voor Basic-variabelen ge¬ 
bruikelijk is. 

Waarden als 5, 0.0, +45.7, -2.3000, 
1.44453E-10, 1234.567 en -3342 zijn 
numerieke konstanten, 
terwijl "Daag'',"&&$%#@"," ", en 

"-223323" alfanumeriek konstanten, 
ofwel strings, zijn. De laatste zijn te 
herkennen aan de dubbele aanha¬ 
lingstekens, die de konstante begren¬ 
zen. Deze aanhalingstekens maken 
zelf geen deel uit van de string. De re¬ 
gels waarmee de geldigheid van kon¬ 
stanten kan worden bepaald zijn erg 
ingewikkeld. In het algemeen zijn nu- 
merieken legaal als ze bestaan uit ka¬ 
rakters van 0 tot 9, +, - , E en als laate 
een punt ’.’ Getallen als 7a+3b wor¬ 
den niet gezien als konstanten, terwijl 
ook schrijfwijzes als 1.2.3, 4E2E1 (4 * 
10''^°), hoewel passend in de regel 
niet als geldige numerieken worden 
beschouwd. Zoals in één oogopslag 
te zien is, zal de enige echte boosdoe¬ 
ner de letter’E’kunnen zijn. 

Voor strings ligt het allemaal wat ge¬ 
makkelijker, want alles wat tussen de 
aanhalingstekens staat hoort bij de 
string. Alleen de niet te printen karak¬ 
ters, zoals Top-of-Form, Carriage-Re- 
turn en ASCII-NULLzijn moeilijk te be- 


Commodore Info 5188 


61 




Basic Cursus 


kijken en kunnen wel degelijk deel uit¬ 
maken van een string. 

Variabelen 

We hebben al veel vaker over Basic- 
variabelen gepraat, met name over 
alle regels waaraan ze moeten vol¬ 
doen om door een Basic-programma 
op de juiste manier te worden geïnter¬ 
preteerd. Vandaar dat we in dit geval 
slechts kort aandacht aan dit pro¬ 
grammaonderdeel zullen besteden. 
Een Basic-variabele bestaat uit een 
combinatie van minimaal één letter 
met eventueel een achtervoegsel om 
de aard van de variabele aan te ge¬ 
ven. De maximale lengte van een va¬ 
riabele hangt af van de gebruikte in¬ 
terpreten Bij de Commodore-Basic is 
het zo, dat een naam langer kan zijn, 
dan het Basic-programme herkent. 
Commodore beperkt zich tot de eerste 
twee karakters. Normaal wordt door 
de interpreter echter de volledige 
naam aan de waarde van een varia¬ 
bele toegekend. 

Een variabele moet altijd een waarde 
hebben in een programma. Een waar¬ 
deloze variabele kan eenvoudig niet 
bestaan in welk computerprogramma 
dan ook. Standaard wordt bij de defi¬ 
nitie van de variabelen (bijna) automa¬ 
tisch de waarde 0 (of "" NULL voor 
strings) aan de variabele toegekend. 
In tegenstelling tot de konstanten kan 
de waarde van een variabele gedu¬ 
rende de run van het programma ech¬ 
ter worden gewijzigd. 

Geldige namen voor variabelen zijn 
bijvoorbeeld: 

A, I, J, X1, XX4, X%, AA$, RENTE, 
FRMULE%, NAAMS, N% en reeksen 
andere mogelijkheden. Hoe langer de 
naam, hoe beter herkenbaar de varia¬ 
beler en even zoveel extra typewerk 
om het programma te schrijven. De 
leesbaarheid wordt echter evenredig 
duidelijker naarmate de lengte van de 
variabele-naam toeneemt. Bij bepaal¬ 
de soorten dialecten van Basic, waar¬ 
onder Commodore, is het illegaal om 
namen van Basic-opdrachten per 
abuis als onderdeel van een variabe¬ 
le naam te laten fungeren. Ik heb eens 
een kort voorbeeldprogramma voor 
Commodore-Info geschreven, waarbij 
voor het gemak de variabele GETAL 
werd genoemd. Het programma werd 
getest op een IBM PC, waar met 
GWBASIC of BASICA dit soort naam¬ 
geving volledig wordt geaccepteerd. 
Nog nooit heb ik echter zoveel brieven 
met terechte kritiek gekregen van 
Commodore-bezitters, die allemaal 
vastliepen op deze naam, waarin de 
opdracht GET abusievelijk was ver¬ 
werkt. Gelukkig is dit type fout snel en 


gemakkelijk uit een Basic-listing te 
verwijderen, als het nodig mocht zijn, 
maar lastig is het wel. Want namen als 
FORMULE, GETAL, EVALUTATIE, 
ATHENES, DEFAULT, KALENDER, 
NOTITIE, COMMANDO en INTE¬ 
REST zijn bij Commodore-Basic niet 
te gebruiken, hoewel ze vaak exact 
weergeven waar een bepaalde varia¬ 
bele voor wordt bedoeld. 

Ook de combinatie van namen die on¬ 
der andere bestaan uit de letters ST of 
Tl zullen bij Commodore voor nogal 
wat problemen zorgen. 

We zullen proberen deze handicap 
zoveel mogelijk te vermijden. 



Regelnummers 

Naast commando’s, konstanten en 
variabelen bestaat een Baslcpro- 
gramma nog uit (vaak al facultatieve) 
regelnummers en operatoren. 

De lijn- of regelnummers bestaan in 
alle interpretatieve Basics nog als een 
onvermijdelijk onderdeel van het pro¬ 
gramma. Er moet tijdens het runnen 
nu eenmaal een bepaalde manier zijn 
waardoor de Vertaler’ weet waarheen 
wordt verwezen bij een GOTO, 
IF..THEN of GOSUB opdracht. Wordt 
een listing vooraf gecompileerd, dan 
kunnen de regelnummers worden ge¬ 
mist en waar nodig door programma- 
labels worden vervangen. De moder¬ 
nere Basic-dialecten kennen deze 
manier van programma-opbouw. 
Vooral na de popullarisering van de 
PC-familie hebben we een stortvloed 
van Basic-versies en compilers gekre¬ 
gen, waardoor het werken met regel¬ 
nummers al bijna uit de tijd is geraakt. 
Maar interpretatief hebben we ze nog 
altijd als referentie nodig, en schade¬ 
lijk zijn ze in geen geval. 

Operatoren 

Als laatste onderdeel van een pro¬ 
gramma hebben we nog de operato¬ 


ren, waarmee we de uit te voeren be¬ 
werkingen in een programma aange¬ 
ven. We doelen hiermee natuurlijk op 
tekens als <!=!> en de opera¬ 

toren AND, NOT en OR. 

Als we helemaal volledig willen zijn, 
onderscheiden we in deze operatoren 
twee types ; Binaire en Unaire opera¬ 
toren. Nu zijn dit ook weer moeilijke 
begrippen, maar de betekenis van 
beide valt wel mee. Binaire operato¬ 
ren worden gebruikt om twee konstan¬ 
ten of variabelen samen te bewerken 
en één nieuwe variabele aande uit¬ 
komst toe te kennen. 

’Unaire’ operatoren hebben betrek¬ 
king op één variabele (of konstante). 
Alleen de Boolse operator NOT en de 
tekens -i- en - zijn unair te gebruiken. 
Het unaire gebruik van operatoren 
zullen we In huis-tuin en keuken Basic 
niet al te vaak bewust tegenkomen, 
hoewel ook het minteken voor een ge¬ 
tal in feite een unaire operator is. Voor 
de volledigheid zijn ze toch op deze 
plaats vermeld. 

Alle operatoren kunnen worden ge¬ 
bruikt bij numerieke variabelen; voor 
strings kennen we echter maar één 
operator, het plusteken {+) waarmee 
de strings als het ware aan elkaar kun¬ 
nen worden 'geplakt’. Verdere reken¬ 
kundige bewerkingen kunnen we met 
alfanumerieke data niet uitvoeren. 

Prioriteit 

Voor veel programmeurs Is de volgor¬ 
de waarin de verschillende operato¬ 
ren wordt afgewerkt een moeilijk punt. 
We kunnen namelijk verschillende uit¬ 
komsten verwachten van de volgende 
som: 

45 + 30 * 18 

Als we eerst 30 bij 45 optellen wordt 
de som 75, dit 18 keer, dan krijgen we 
ais oplossing 18*75 = 1350. 

Doen we het anders, door eerst 30 
met 18 te vermenigvuldigen, en er als 
laatste 45 bij op te tellen, dan wordt de 
uitkomst 585, een heel verschil met de 
vorige bewerking. De vraag wordt nu 
natuurlijk, welke van de twee de juiste 
is, want op het eerste gezicht is op 
geen van beide oplossingen iets aan 
te merken. 

Nu kan het natuurlijk niet, dat uit één 
som, met dezelfde konstanten en ope¬ 
ratoren twee oplossingen kunnen ko¬ 
men. Daarom heeft men in de wiskun¬ 
de een soort voorrangsregel opge¬ 
steld, waardoor de prioriteit van de 
verschillende operatoren wordt be¬ 
paald. Daardoor weten we (en ook de 
computer gelukkig) welke bewerking 
voorrang heeft boven andere bewer- 
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kingen, zodat we in alle gevallen 
slechts over één correcte uitkomst 
kunnen beschikken. 

Het is erg belangrijk deze prioriteiten¬ 
tabel goed in je hoofd te hebben, dat 
spaart een hele serie haakjes in je 
programma, zoals we straks zullen 
zien: 

De voorrangsregels voor Basic luiden 
als volgt: 

(exponent) 

+,- (unair plun en min)) 

*, / (vermenigvuldigen en delen) 

+,- (binair optellen/aftrekken) 
<,>,=(vergelijking, kleiner dan, gelijk & 
groter dan) 

NOTBoolse NOT - unaire operator 
ANDBoolse AND - binaire operator 
ORBoolse OR - binaire operator 

Eigenlijk allemaal wel recht voor z’n 
raap, de expressie: 

4*2*4 wordt dus niet 4*8 maar 16*4 
Hoe hoger in de tabel, des te eerder 
wordt de bewerking uitgevoerd op de 
twee belendende waarden. In de 
voorgaande som (45-i-30*18) wordt 
dus eerst de vermenigvuldiging uitge¬ 
voerd en vervolgens de optelling ge¬ 
maakt, waardoor de juiste uitkomst 
585 wordt. 

Let nog even op de unaire operatoren, 
want door deze toe te passen,kunnen 
we sommen als 4*-2*3, 7-+3, -3342 * 
-2232 zonder problemen oplossen. 
De unaire operatoren + en - worden 
eerst verwerkt, waarna we een vrij 
simpele berekening overhouden, die 
alleen op het eerste gezicht wat inge¬ 
wikkeld overkomt. 

TRUE en FALSE 

Naast de logische, of Boolse operato¬ 
ren, AND, NOT en OR gebruiken we 
in computertalen maar al te vaak de 
conditie WAAR of ONWAAR, ofwel in 
beter computerjargon TRUE en FAL¬ 
SE. De waarden die aan TRUE en 
FALSE worden teogekend zijn in feite 
niet erg van belang, maar wel het feit 
dat TRUE altijd ongelijk is aan FALSE. 
De volgende programmaregels laten 
een TRUE/FALSE voorbeeld zien: 

10 A = 10 
15 B = 20 

20 IF(A< B)THEN PRINT "A KLEINER 
B IS TRUE" 

30 IF (A =>)B) THEN PRINT "A 
KLEINER B IS FALSE" 

40 PRINT A<B 
50 PRINT A>B 

Uit de definitie van A en B blijkt, dat A 
inderdaad kleiner is dan B, waardoor 


de conditietest van regel 20 : IF (A < 
B) tot TRUE (WAAR) evalueert, en re¬ 
gel 30’s IF is daardoor automatisch 
FALSE. De print-opdracht van regel 
20 wordt dus op het scherm gezet. 

In regel 40 en 50 zien we de waarde 
die onze computer aan TRUE en FAL¬ 
SE toekent. 

Voor FALSE heeft iedere computerfa¬ 
brikant gelukkig de waarde NUL (0) in 
huis. Regel 50 laat dit ook duidelijk ge¬ 
noeg zien. De waarde van TRUE is 
een andere zaak. Basic in het alge¬ 
meen, IBM-Basic en Commodore in ’t 
bijzonder wijken hierin dan ook van 
nagenoeg alle andere computertalen 
af, door aan TRUE de waarde -1 toe 
te kennen in plaats van de standaard¬ 
waarde TRUE=1. Vooral bij de wat 
'professioneler’ talen als ’C’, COBOL 
en FORTRAN vinden standaard 



TRUE=1. 

De reden waarom Commodore heeft 
gemeend dit anders te moeten is niet 
geheel duidelijk, want er zijn nogal wat 
programma-voorbeelden te beden¬ 
ken, waarbij juist het teken van TRUE 
meespeelt in de condities en de gevol¬ 
gen. Denk bijvoorbeeld maar eens 
aan de datum-berekening waar we in 
één van de voorgaande lessen uitvoe¬ 
rig bij hebben stilgestaan. 

De vergelijkingen van Commodore 
wijken wat betreft numerieken weinig 
af van de standaard. Bij strings gaat 
het echter allemaal wat de verkeerde 
kant op. 

De vergelijking tussen "1000" en 
"10000" gaat nog goed, want PRINT 
"1000" < "10000" evalueert tot TRUE 
ofwel -1. Bij andere strings gaat het 
echter verkeerd, omdat de strings 
slechts vergeleken worden tot op de 
lengte van de kortste string. De test op 
PRINT "9" > "799" geeft TRUE als uit- 
j komst, terwijl dit natuurlijk in het ge¬ 
heel niet juist is. Maar goed, daar 
j moeten we maar mee leven. 

Welzijn het juist dit soort onvolkomen¬ 


heden, die Basic jammer genoeg blij¬ 
vend degraderen tot een taal voor uit¬ 
sluitend amateurs. 

Grenzen 

De reden van deze fouten en onjuis¬ 
theden in de verwerking ligt in de wij¬ 
ze waarop (Commodores’) Basic met 
een dergelijke vergelijking tussen 
twee waarden omgaat. De logische 
operatoren (< en > in dit geval) gebrui¬ 
ken een 16-bit woordsysteem, dus 
twee bytes. 

Daarom wordt TRUE, (-1) in het ge¬ 
heugen gehouden als $FFFF (65535), 
dus in feite de hoogste waarde die een 
dubbel-byte kan aannemen. Voor logi¬ 
sche (Boolse) expressies wordt door 
dit gegeven de maximale waarden 
ook beperkt tussen -32768 en 
-(-32767. We kennen deze limieten 
waarschijnlijk al van de integer-varia- 
belen. Zodra we buiten deze waarden 
komen, ook met tussentellingen bij het 
uitwerken van expressies, zullen we 
onmiddellijk een 'overflow' error kun¬ 
nen verwachten. Een voorbeeld hier¬ 
van is de Basic opdracht PRINT NOT 
32768. Omdat door NOT de 16-bits al¬ 
lemaal worden 'geflipt' van 1 naar 0 of 
juist omgekeerd, krijgen we bij NOT 
10 bijvoorbeeld -11 ofwel (NOT X )-fX 
= -1 gaat altijd op. Overigens is het 
aardig om dit eenmaal te lezen en wel¬ 
licht ooit, bij het zoeken naar een ver¬ 
velende, weggedoken 'bug' in je pro¬ 
gramma ineens te herinneren, dit 
soort werk zal over het algemeen wei¬ 
nig in de standaard Basic-program- 
matuur worden teruggevonden. Hoe¬ 
wel zeker in Basic de verwerkingstijd 
een belnagrijk gegeven vormt tijdens 
het runnen, zijn zeker voor de hiervoor 
geschetste problematiek goede, om¬ 
zeilende oplossingen te bedenken, 
zodat we de Basic-taal om dit soort 
onvolkomenheden niet van de tafel 
behoeven te vegen. 

Wel nog even terug naar de voor¬ 
rangsregels bij operatoren. Deze zijn 
echt erg belangrijk, leer ze uitje hoofd, 
voorzover je het niet al wist. Let daar¬ 
bij vooral op de onderste regionen. 
Die zorgen vaak voor de meeste, niet 
voor de hand liggende fouten in de 
software. 

Functies 

Over functies hebben we al eerder ge¬ 
sproken. Alle opdrachten in Basic, 
waarbij naast het keywoord ook tus¬ 
sen haakjes een expressie moet wor¬ 
den meegenomen, noemen we func¬ 
ties. Het betekent dus een opdracht 
die geheel gewijd is aan de uitdruk¬ 
king tussen de haken. MID$("CBAM- 
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SAND",5,3) wordt "SAN", en SiN(4''2) 
geeft 

-.2879034 als oplossing. De gehele 
functie als zodanig evalueert tot een 
waarde. Een uitzondering op deze 
functieregel is de opdracht PEEK. Dit 
is geen functie in de reinste zin van 
het woord, maar voor het gemak is 
deze opdracht gegoten in de jas van 
functie en wordt daarom ook maar als 
zodanig beschouwd. 

Haken 

Om een expressie op een niet stan¬ 
daardmanier door de computer te la¬ 
ten uitvoeren kunnen we gebruik ma¬ 
ken van de ronde haken ’(’ en ’)’. Door 
delen van een berekening met kon- 
stanten en variabelen tussen haken te 
plaatsen, kunnen we er zeker van zijn, 
dat deze gedeeltes voor alle andere 
bewerkingen door de computer zullen 
worden aangepakt en bewerkt. Eer¬ 
der hebben zagen we een expressie 
met twee mogelijke uitkomsten, door¬ 
dat we niet op de hoogte waren van de 
prioriteiten, at we niet op de hoogte 
waren van de prioriteiten. 

De uitkomst van 45 -r 30 * 18. Willen 
we hierin eerst 45 en 30 sommeren, 
dan kan dit door de computer gebeu¬ 
ren, door dit deel tussen haken te 
plaatsen waardoor we het volgende 
bereiken: (45 + 30) * 18 . Eerst zal nu 
de optelling worden gemaakt, (75)*18, 
waarna pas de vermenigvuldiging 
wordt uitgevoerd, in tegenstelling tot 
de standaard prioriteits-regels. In feite 
kun je zeggen, dat de haken bij Basic 
de hoogste prioriteit hebben. 

Expressie 

Het woord 'expressie’ is vooral in deze 
les een aantal keren gevallen, en ie¬ 
dereen zal ook wel grofweg weten wat 
er precies mee wordt bedoeld. Het be¬ 
tekent een aantal variabelen, operato¬ 
ren en eventueel functies bij elkaar, 
die samen als eenheid door de com¬ 
puter moeten worden behandeld in 
verband met een specifieke Basic-op- 
dracht. 

Om het moeilijk te maken, onder¬ 
scheiden we maar liefst drie types ex¬ 
pressies: 

String expressies 

Rekenkundige expressies 

Logische expressies 

De string-expressie is een verzame¬ 
ling van één of meer stringvariabelen, 
string-functies en string-konstanten, 
eventueel met haken verbonden en 
ingedeeld, samen met de enig moge¬ 
lijke string-operand (-h). 


i Voorbeeld van zo’n string-expressie is 

STR$(135)-i-"ARDN AS"-t-MID$(Q$+" 
YES",3,4)+CHR$(X) 

Met een beetje goede wil is het alle¬ 
maal nog ingewikkelder te maken, 
maar de bedoeling zal duidelijk zijn, 
ook al stelt dit voorbeeld niet veel 
voor. 

MAAND$ = MID$("JANFEBMAA 

APRMEIJUNJULAUGSEPOKT 

NOVDEC",X,3) 

heeft echter al heel wat meer nut als 
string-expressie. 

Een rekenkundige expressie be¬ 
staat uit een verzameling van nume¬ 
rieke konstanten, dito variabelen en 
functies, samengevoegd met hulp van 
alle operatoren en haken, waarbij ge¬ 
bruik kan worden gemaakt van integer 
en reële variabelen. Een rekenkundi¬ 
ge expressie moet altijd worden ge¬ 
bruikt in samenhang met 1/0 opdrach¬ 
ten of als toekenning aan een bepaal- 
I Ho v/orioholo 

SQR(VAL(X$(2,4,7))+ KL% + ABS 
(SGN(X-Z)*-334)*(A>QAND17*X) 

is een prachtig voorbeeld van een der¬ 
gelijke expressie. 



De logische expressie is meestal 
wat minder ingewikkeld, maar niet 
minder moeilijk te interpreteren. 

Wat je hiervan op z’n minst moet we¬ 
ten, is dat een logische expressie 
maar twee uitkomsten kent, TRUE en 
FALSE, zoals we eerder in dit artikel 
voldoende hebben bekeken. Een der¬ 
gelijke expressie bestaat uit een ver¬ 
zameling van variabelen en/of kon¬ 
stanten, waarbij uitsluiten gebruik 
; wordt gemaakt van haakjes en -hoe 
I kan het ook anders- de logische of 
boolse en conditionele operatoren. 
Dus OR, AND, NOT, <,=,> en verder 
; niet. Een voorbeeld is : 

(A < 20) OR ((B = 10) AND NOT (22=X)) 

I 


Hoewel in theorie nogal verschillend 
van de voorgaande expressie, kun¬ 
nen in Basic beide expressies gemak¬ 
kelijk doorelkaar worden gebruikt, 
want de computer gooit de hele ex¬ 
pressie, logisch of numeriek, of zelfs 
een combinatie van beide op één 
hoop en verwerkt de uitdrukking in de¬ 
zelfde Basic-routine. Een deel van de 
oorzaak van de foute TRUE-waarde 
overigens. 

Daardoor kunnen we In Basic eigenlijk 
heerlijk aan het rotzooien met reken¬ 
kunde en eigen fantasie, die daar vol¬ 
ledig tegenin druist, tot groot onge¬ 
noegen van de echte logicus. Uitdruk¬ 
kingen ais 

ON 2 +((P=Q) AND X <4) GOSUB 

1000,2000 

kunnen nu eenmaal niet in de wereld 
van de professional, maar onze Basic 
computer doet precies wat we voor 
ogen hebben met deze opdracht. Dat 
het daarom ook allemaal goed te pra¬ 
ten is, geloof ik niet, maar ik moet toe¬ 
geven, dat een regel als bovenstaan¬ 
de er verdraaid ingewikkeld uitziet. 

Statement 

In Basic spreken we van een state¬ 
ment, als combinatie van keywoord of 
opdracht samen met één of meer 
functies en expressies. Het is qua 
zinsbouw de kleinste korrekte een¬ 
heid waar we van kunnen spreken in 
een Basic-programma. PRINT 5 is bij¬ 
voorbeeld een statement. Een state¬ 
ment wordt begrensd door een dubbe¬ 
le punt of een EOL, de afkorting voor 
END-OF-LINE (einde van een regel). 
Alle statments beginnen met een Ba- 
sic-opdracht, of in speciale gevallen 
met een variabele. Dat is het gevolg 
van de opdracht LET, die in latere Ba- 
sic-dialecten kon worden weggelaten. 
Het statement A=34 zou dan ook fei¬ 
telijk als LET A = 34 geschreven moe¬ 
ten worden, en beantwoord daarmee 
weer helemaal aan de statement defi¬ 
nitie. 

We kennen nogal wat types STATE¬ 
MENTS, waar we niet al te diep op in 
zullen gaan, want we hebben al ge¬ 
noeg theorie gehad. Wel zullen we ze 
stuk voor stuk kort noemen. 

Als eerste de toekennings-state- 
ments. Deze geven aan een variabe¬ 
le een bepaalde (begin)waarde. LET 
C = 45 of LET A = Tl zijn bijvoorbeeld 
toekennings-statements. 

I De operator ’=’ wordt in deze opdrach¬ 
ten heel anders gebruikt als we ge¬ 
wend zijn van de standaard als lo¬ 
gische en/of conditionele ’=’. De 
meeste computertalen gebruiken dan 
j ook twee verschillende operators hier- 
! voor, dooe bijvoorbeeld zaken als 


64 


Commodore Info 5/88 



Basic Cursus 


’==’ of in het leven te roepen. Ba¬ 
sic laat dit jammer genoeg achterwe¬ 
ge, en laat de programmeur in feite 
klungelen met een sleutel voor twee 
doelen. Nu valt ook hier wel mee te le¬ 
ven al is het niet altijd gemakkelijk en 
zeker voor degenen die later nog eens 
met een andere taal verder willen stu¬ 
deren wordt het tweeslachtige gebruik 
van de ’=’ operator nog een ware 
kwelling. 

Een tweede type statement is het 
conditionele. Alle opdrachten met 
1F..THEN vallen hieronder. 

IF A = 10 THEN PRINT "OK" en IF 
NOT X THEN END zijn voorbeelden 
van conditionele statments. 

De derde groep statments kennen we 
als controle-opdrachten. Deze 
groep wordt benut om de programma- 
flow in andere banen te leiden. Com¬ 
mando’s als GOTO, GOSUB, END, 
RETURN en STOP horen thuis in 
deze categorie. 

Vervolgens twee erg nauw verwante 
statement-types, INPUT en OUTPUT 
statements, deze worden gebruikt om 
de communicatie naar buiten te ver¬ 
zorgen. Zowel voor het inkomende 
(INPUT) als uitgaande verkeer (OUT¬ 
PUT) 

Opdrachten als INPUT, INPUT#, 
PRINT#, GET, READ, PRINT en der¬ 
gelijke horen thuis in één van deze 
beide statement-groepen. 

Een heel belangrijke groep state¬ 
ments zijn de zo genoemde ’com- 
pound’ of blok-statements. Deze 
groep zorgt, dat een hele serie state¬ 
ments in een blok kan worden uitge¬ 
voerd. Uiteraard kan FOR..TO..NEXT 
als voorbeeld hiervoor dienen. Latere 
(en betere) Basic dialecten hebben de 
mogelijkheden ten opzichte van de 
oude standaard drastisch uitgebreid, 
door opdrachten als DO..WFIILE en 
WFIILE..WEND en noem maar op. Bij 
Commodore vinden we helaas alleen 
een wat magere FOR..NEXT voor 
onze blok-opdrachten. De 'loop'state- 
ments vormen het eerste begin van 
structureel programmeren. 

Dan kennen we nog de ’conversie- 
statements’, waarmee we het karak¬ 
ter van een variabele (de waarde alt¬ 
hans) kunnen veranderen van string 
naar numeriek of omgekeerd. Flier- 
voor beschikt Basic over een groot 
aantal functies, zoals VAL, ASC, 
CHR$, STR$, INT. 

De laatste en niet belangrijke groep 
statements wordt gevormd door de 
commentaar-statements. We zullen 
allemaal weten, dat alle informatie na 
een REM-opdracht niet door Basic zal 
worden uitgevoerd. Hoewel dit juist is, 
is het misschien leuk, te laten zien, dat 


I het ook mogelijk is, om zonder rem 
toch commentaar op een programma¬ 
regel te krijgen. Zelfs hele blokken 
j kunnen op die wijze met commentaar 
worden gevuld: 

0 GOTO 100 :Begin programma op 
regel 100 

10 Dit programma wordt gebruikt om 
een aardig 

20 bugje in Basic te illustreren, 

30 omdat ook zonder REM de regels 
die hier 

40 staan probieemloos mee runnen 
met 

50 het Basic-programma. 

60 Ze horen daarom ook tot de 
commentaar-statements 
70 zonder gebruik van de opdracht 
REM. 

100 REM begin programma. 



Tot zover de statements, en als ik het 
goed heb is er weinig meer van de 
standaard Basic regels te vertellen 
dan we in deze les vrij uitvoerig heb¬ 
ben behandeld. 

Alleen over programma’s en de pro- 
gramma-regels in hun geheel moeten 
we het nog even hebben. 

Programma regels 

De regels van een Basic programma 
zijn al even aan de orde geweest, 
maar per regel bestaat een listing uit 
minimaal 0 Basic-statements. Iedere 
regel in een programma wordt in het 
geheugen vooraf gegaan door een 
NULL-byte, zodat de interpreter het 
einde/begin van Basic-regels kan her¬ 
kennen. Daarnaast zijn meestal een 
tweetal bytes gereserveerd voor het 
regelnummer, dat daardoor een waar¬ 
de kan hebben van 0 tot 65535 tenwijl 
ook per regel twee bytes worden ge¬ 
bruikt voor de schakel naar het begin 
van de volgende programma-regel in 
het geheugen. Er bestaan wat compu¬ 


ters (zeker de oudere) die van deze 
regelopbouw afwijken, maar in princi¬ 
pe kunnen we per regel de hierbij ge¬ 
geven opbouw zien. Voor de duidelijk¬ 
heid, we praten uitsluiten over de Ba- 
sic-interpreter, en niet over gecompi¬ 
leerde Basic-programma’s. 

De programmaregel zelf kan bestaan 
uit strings, gecodeerde Basicopdrach- 
ten (TOKENS) , aanhalingstekens 
met of zonder string-konstanten, 
haakjes, variabelen leestekens, com¬ 
mentaar en DATA-statements. 
Kortom, een programma-regel Is een 
willekeurige verzameling van 0 of 
meer Basic-statements, gescheiden 
door een dubbele punt, waarbij het 
einde van de regel ook als scheiding 
tussen statements functioneerd. 

I 

Programma 

Een Basic programma heeft na al het 
voorgaande wel een heel gemakkelij¬ 
ke definitie, en is niet anders dan: 

Een verzameling van 0 of meer pro¬ 
grammaregels, die alle voorzien zijn 
van een regelnummer en overige 
standaard-structuur, waarbij de op¬ 
eenvolging van regelnummers het te 
verwachten verloop van het program¬ 
ma aangeeft, met uizondering van de 
flow die door controle-statements kan 
worden gewijzigd. Het programma- 
eind wordt intern aangegeven door 
drie NULL-bytes. 

Meer valt niet te zeggen van een Ba¬ 
sic-programma, al is dit juist waar het 
om draait. 

We hebben nu wel alles gezien wat 
met een Basic-programma en de pro¬ 
grammering van Basic te maken 
heeft. Ik ben me bewust, dat vooral 
deze les nogal saai en droog is ge¬ 
weest, maar ik hoop dat tot hiertoe het 
allemaal te volgen was. Dat moet bij¬ 
na wel, anders zou je dit nu niet lezen. 
De volgende keer beginnen we met 
Basic van A tot Z met de beschrijving 
van de eerste echte functies en com¬ 
mando’s. Heb je intussen vragen en 
opmerkingen, dan kun je die schrifte¬ 
lijk indienen bij de redactie van dit 
blad, met vermelding ’Basic-pro- 
bleem’. We zullen proberen voor alle 
vragen een oplossing te vinden, hoe¬ 
wel het gebrek aan tijd ons meestal 
voorrang laat verlenen aan problemen 
die voor meerdere lezers van belang 
kunnen zijn. 

Intussen sterkte en hopelijk tot de vol¬ 
gende Basic-sessie. 

Jan Bodzinga 
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Amiga hoek 


Vanaf dit nummer gaat Commodore Info meer pagina’s besteden aan de Amiga, zon¬ 
der overigens de gebruikers van de andere Commodore computers te vergeten. Met 
name in de nieuwe rubriek Amiga Hoek, die door Johan en Johan wordt verzorgd, zal 
de lezer de hard- en software van de Amiga door en door kunnen leren kennen. 

Amiga introductie 

O m te beginnen gaan Johan & Johan in een aantal basisbegrippen rond 
de Amiga behandelen. Met hardware- software en boekbesprekingen zal 
er, of u nu een Amiga 500,1000 of 2000 heeft, voor elk wat wils te vinden zijn. 


Boekbespreking 

De allereerste keer zullen wij direct 
een stapel boeken gaan bespreken 
van DATABECKER. Databecker is 
sinds jaar en dag bezig met het verta¬ 
len en uitgeven van Commodore boe¬ 
ken. Wie kent de INTERN nu nog 
niet? Dat is gewoon een begrip ge¬ 
worden in de Commodore wereld. En 
geloof ons, dat u zonder deze boeken 
bijna niets zult kunnen ondernemen. 
Het is immers een computer met ge¬ 
heel eigen instructies. En laten we nu 
niet onder stoelen of banken steken 
dat de bijgeieverde lektuur minimaal 
is! Dat is bij iedere Amiga gebruiker 
bekend. Om wat met uw Amiga te kun¬ 
nen ondernemen zonder alle boeken 
over de Amiga aan te schaffen moet u 
dus op deze rubriek blijven letten. 

Software 

Dat er voldoende sofware voor de 
Amiga te verkrijgen is mag ondertus¬ 
sen ook wel bekend zijn. Veelal zijn dit 
spelletjes en dure comerciële pro¬ 
gramma’s. Ook de allerbeste software 
voor de Amiga zullen wij gaan bespre¬ 
ken. In de volgende INFO zult u een 
recentie van twee C-compilers tegen 
komen. Zelf hebben wij net een pri¬ 
meur gezien op de Amigal! Het pro¬ 
gramma wordt geleverd met hardwa¬ 
re en is een komplete besturing voor 
een taxicentrale. De firma die de soft- 
en hardware op de markt gaat bren¬ 
gen is SCRAA TELECOM uit Wom- 
mels. Voor informatie kunt u het on¬ 
derstaande nummer draaien/intikken: 
05159-2380. 

Virussen 

Wanneer u nu de software wereld ook 
weer voor de Amiga wilt gaan verpes¬ 
ten door allerlei software illegaal -dus 
tegen de wet en strafbaar!- te gaan 
kopiëren zullen de pakketten steeds 


duurder worden. Maar er was iemand, 
wij noemen geen namen, die hier wat 
op heeft gevonden. Een VIRUS is de 
machtige tegenhanger van backup- 
pend Nederland. Door nu met illegale 
programmatuur te werken loopt u het 
risico ook zo’n monster op uw disket- 
te’s te krijgen. En wanneer u een virus 
op een diskette heeft staan wordt het 
lachen. Ja, die virussen zorgen voor 
dolle pret dat is zeker. Amiga gebrui¬ 
kers kennen vast het BYTE BANDIT 
of het SCA virus wel. En terwijl wij dit 
artikel schrijven zijn er misschien al 
weer een paar ‘schurken’ die driftig 
een eigen virus aan het ontwerpen 
zijn. Dat zullen we nooit zeker weten 
maar het is maar een idee. 

Zelf programmeren 

Nee geen virus gaan zitten maken, 
ben je gek geworden zeg! Ook niet al 
was het maar om uw naam door de 
hele wereld te sturen. Er is een bete¬ 
re manier om wat met uw kennis te 
doen. Maak eens een leuk program¬ 
ma en stuur dat ook eens naar ons op. 
Wanneer het van goede kwaliteit is, 
krijgt ook heel Nederland het te zien. 
In de nieuwe Amiga hoek zullen wij in 
een volgend nummer van Commodo¬ 
re INFO ook van start gaan met een 
C-cursus voor de Amiga. Natuurlijk 
zullen wij simpel starten en later op 
volle toeren door de Amiga heenvlie- 
gen. De Amiga-hardware zullen wij 
stap voor stap doornemen. Net als in 
de TRIPLE 128 rubriek zal er voor de 
Amiga een artikel komen voor de di¬ 
verse hardware onderdelen. Zo zullen 
er besprekingen komen over de exter¬ 
ne diskdrive, aansluiten van de 1901 
monitor aan de Amiga. Wist u wel dat 
de 1901 monitor ook op de Amiga 
aangesloten kan worden? Maar dat is 
nog toekomstmuziek en nog even ge- 
! duld hebben dus. 


Vragen en opmerkingen 

Voor vragen en opmerkingen kunt u 
vanaf nu bij de Amiga corner terecht. 
Maar dat moeten wij wel heel voor¬ 
zichtig zeggen want anders verzuipen 
wij straks in de postzakken. Omschrijf 
uw probleem en/of opmerking a.u.b. 
wel heel goed. Voordat uw brief door 
ons zal worden beantwoord moet u 
wel even geduld hebben. Lees ook 
het stuk op pagina 21 in nummer 3 
eens door. Hierin kunt u lezen op wel¬ 
ke manier u uw brief kunt insturen. 
Wanneer er leuke brieven bijzitten zul¬ 
len wij die in een volgend nummer van 
Commodore INFO publiceren. 

De gebruikte lektuur 

De door ons gebruikte lektuur bestaat 
hoofdzakelijk uit de DATABECKER 
reeks. Verder nog een stapel uit de 
ADDISON-WESLEY reeks. Onder di¬ 
verse titels kunnen wij dan zo nu en 
dan even een boekje raadplegen. 

De gebruikte hardware 

De door ons gebruikte hardware be¬ 
staat uit een Amiga 500 een Amiga 
1000 en zelfs een Amiga 2000. U ziet 
het kan dus niet op. Wij zijn druk be¬ 
zig met communicatie lijnen aan te 
leggen tussen de verschillende com¬ 
puters. In de TRIPLE 128 rubriek kunt 
u dit keer dan ook lezen hoe u een 
NULL MODEM kabel kunt maken. Met 
deze kabel kunt u tussen twee Ami- 
ga’s en/of een andere computer gaan 
communiceren. Aan ons zal het dan 
ook niet liggen. Ook voor het geld 
hoeft u het niet te laten. Maar bekijk 
het zelf maar eens. In ieder geval ho¬ 
pen wij u met de introductie van de 
'' nieuwe Amiga corner een heel eind op 
I weg te helpen. Voor ideeën kunt u ons 
natuurlijk ook even schrijven. 

JOHAN & JOHAN. 
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Easy! 

Nieuw op de Nederlandse computer- 
markt is de Easyl, een drukgevoelige 
professionele tekentafel die de grafi¬ 
sche kwaliteit van de Amiga volledig 
kan benutten, ideaal voor ontwerpers, 
tekenaars die maar niet echt kunnen 
wennen aan het strak tekenen met 
een muis of een joystick. Op de "ge¬ 
wone" manier met pen, potiood, line- 
aai maar met de computer. Tekenin¬ 
gen die u op dit tableau maakt ver¬ 
schijnen dan ook op het beeldscherm. 
Hiermee iigt de weg open om goed te 
kunnen tekenen en toch de beeiden 
met de Amiga te kunnen bewerken. 
We beschikken nog te kort over de te¬ 
kentafel om alle mogelijkheden te be¬ 
nutten. We wilden u dit nieuws niet 
onthouden, maar in een volgend num¬ 
mer zullen we uitgebreid op deze te¬ 
kenmogelijkheid terugkomen. 

De Easyi wordt in Nederland op de 
markt gebracht door de firma Cat & 
Korsh International (010 - 4507696) 
en kost voor de Amiga 500 ƒ899,- 
voor de Amiga 1000 ƒ 999,- en voor 
de Amiga 2000 ƒ 1099,- 


Nieuw deel in 
DeLuxe-reeks 



De bekende reeks van DeLuxe pak¬ 
ketten voor de Amiga is uitgebreid met 
DeLuxePhotolab. Dit pakket van Elec¬ 
tronic Arts is niet alleen een tekenpro¬ 
gramma dat werkt in elke grafische 
modus van de Amiga, inclusief HAM. 
Daarnaast bevat het een beeld-ver- 
werkend systeem en een printpro- 
gramma dat het mogelijk maakt de 
‘kunst’ af te drukken tot een maximale 
grootte van 3 bij 3 meter. De grootte 
van de tekeningen in de computer 
wordt beperkt door het beschikbare 
geheugen, en kunnen tot 20 keer gro¬ 
ter zijn dan het Amiga-scherm. Het 
pakket is compatibel met de andere 
programma’s uit de DeLuxe serie en 
de IFF standaard. 


AmEx Magazine 

AmEx Magazine is een nieuw tijd¬ 
schrift op diskette. Het gehele tijd¬ 
schrift bevat niet minder dan drie dis¬ 
kettes vol met informatie. Al bij het op¬ 
starten van de eerste disk valt op, hoe 
mooi de kwaliteiten van de Amiga kun¬ 
nen worden benut. Een menu geeft in 
het kort de informatie die er op de dis¬ 
kette is opgeslagen. Een keuze ma¬ 
ken, met de muis de desbetreffende 
regei aanwijzen, meer is er niet voor 
nodig om alle aanvullende informatie 
te verkrijgen. Onder aan het scherm 
staan een aantal blokjes. Quit en help 
spreken voor zich. Het aanklikken van 
het ’read’ blokje is voldoende om alles 
over het gekozen onderwerp te weten 
te komen. De andere blokjes, up en 
down laten u door de inhoudsopgave 
bladeren. Eén keuzeblokje mis ik, en 
dat is het blokje dat bij aanklikken de 
tekst niet naar het scherm stuurt maar 
naar de printer. Disk 1 geeft de nood¬ 
zakelijke informatie, terwijl disk 2 en 3 
de demo’s en programma’s bevatten. 
Het grote voordeel van dit systeem is 
dat er, in plaats van dat er een spel be¬ 
schreven moet worden, er een demo 
op het scherm te zien is die meestal 
een veel beter beeld van de software 
geeft. 

Nu moet dit geheel niet overdreven 
worden, een uitleg voor de niet erva¬ 
ren gebruiker mag zeker niet worden 
vergeten. Bij dit programma is een 
duidelijke Nederlandse gebruiksaan¬ 
wijzing zeker op zijn plaats om te ver¬ 
tellen hoe het programma moet wor¬ 
den op gestart. Alles bij elkaar is dit 
"tijdschrift" zeker de moeite waard. 
Het is een leuke, leerzame manier om 
aan de nodige Utilities en kennis te ko¬ 
men. Een redelijke kennis van het 
(computer) engels is zeker gewenst. 

Empire 

Maker Interstel noemt de ruimtesimu- 
iatie Empire het ‘Oorlogsspel van de 
eeuw". Het doel van het spel is de ver¬ 
nietiging van de vijand op een nog vrij¬ 
wel onbekende wereld ergens in de 
ruimte, om zo de totale heerschappij 
over die wereld te veroveren. In het 
spel wordt men William P. Brown, ka¬ 
pitein van de U.G.A.S. Britannia. Het 
Krellan-empirium dringt in snel tempo 
het gebied van de alliantie binnen, aiie 
hulpeloze planeten die ze op hun pad 
vinden vernielend. Empire is een stra¬ 
tegische simualtie van globaie oor¬ 
logsvoering en opbouwen van wereld¬ 
heerschappijen tussen twee tegenge¬ 
stelde krachten. 

Electronic Arts distribueert het pro¬ 
gramma in Europa, het is verkrijgbaar 
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voor de Amiga, de Atari ST en de PC. 



Powerdrome 

Een geheel andere simulatie, maar 
wel in de ruimte spelend, is Powerdro¬ 
me, waar je een racepiloot bent die te¬ 
gen vliegers van vier andere melk¬ 
wegstelsels moet uitkomen in race om 
de Cyberneufe trofee. Met 3D grafics 
en realistische motorgeluiden kan 
men tegenstanders langs zien razen, 
crashen en botsen. Het is mogelijk om 
met een speciale dual-datalijn tegen 
een andere speler op een andere 
computer te strijden. Ook dit spel is 
van Electronic Arts en is er voor Atari 
ST en Amiga. 

Casino Roulette 

CDS Software brengt voor de Atari ST 
en de Amiga Casino Roulette, een 
roulettespel dat realistisch is opge¬ 
bouwd. Óp een Franse of Internatio¬ 
nale tafel krijgt men de zelfde kansen 
als in het echte gokspel, en als het 
geld op is, is het spel afgelopen, net 
zoals in de echte wereld. Alleen wordt 
er nog niet met echt geld gespeeld. Er 
zijn in het spel wat mogelijkheden 
voor analyse van de afgelopen spe¬ 
len, zowel wat de verrichtingen van de 
spelers als het rollen van de balletjes 
betreft. 

F/A-18 Interceptor 

Opnieuw een vluchtsimulator, nu een 
F-18 of F-16 gevechtsvliegtuig dat in 
de buurt van de San Fransisco Bay 
Area vliegt. Men kan in de vliegschool 
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Twee zeer populaire spellen voor de Amiga zijn Skyfox 

II en World Tour Golf. Zelfs de redakteuren van Com¬ 
modore Info maken zich nog wel eens schuldig aan een 
ruimtereisje, en op de vrije zondag wordt ook regelma¬ 
tig een balletje tgeslagen. Van Electronic Arts kregen 
we een aantal foto’s van beide spellen, die we hier toch 

willen laten zien. 






World Tour Golf 


Skyfox ïi 


meedoen of zelf in een vrije vlucht pro¬ 
beren onder de Golden Gate brug 
door te vliegen, de Transamerica Py- 
ramide bombarderen of de beowners 
van Alcatraz schrik aanjagen door 
laag over te vliegen. Een spel van 
Electronic Arts voor de Amiga 

Communicatie 

A-TALKIII is een nieuwe versie van A- 
Talk PLus van Oxxi, waarin meer pro- 
tocols zijn opgenomen, er is een uit¬ 
gebreide Script-taal met een lesmo¬ 
dule om communicatie-taken eenvou¬ 
dig te kunnen automatiseren. Er is 
een telefoonnummerlijst van 60 num¬ 
mers, de snelheid van overbrenging 
onder Kermit is verdubbeld, het uitge¬ 
breide toetsenbord van Amiga 500 en 
2000 wordt ondersteund, vreemde let¬ 
tertekens kunnen worden toegepast 
en er worden meer dan 10 modemty¬ 
pes ondersteund. 


Krystal - Superspel? 

In een artikel in Amiga User Internatio¬ 
nal wordt melding gemaakt van het 
potentiële superspel van het jaar, 
Krystal. Dit spel wordt in augustus 
door Prism Leisure Corporation op de 
markt gebracht, en er is sprake van 
een unieke aanpak op het gebied van 
arcade, strategische simulatie en 
avontuur. We zijn benieuwd. 

GIGANOID 

De firma Microdeal blijft zeer regelma¬ 
tig nieuwe spel-programma’s produ¬ 
ceren. Dit keer een spel dat niet uit de 
eigen keuken komt maar gemaakt is 
door Swiss Computer Arts, waarvoor 
Microdeal de distributie verzorgd. 
Giganoid is een super breakout. Een¬ 
voudig gezegd: met een balletje een 
steeds weer ingewikkelder gebouwde 
muur van kleurige steentjes, door het 
raken van de stenen met het balletje, 
afbreken. Onder in beeld moet de 
speler met een naar links en rechts 
beweegbaar 'plankje' het balletje te¬ 
genhouden zodat het weer richting 
muur stuitert om het breekwerk te ver¬ 
volgen. Is een muur volledig afgebro¬ 
ken dan gaat de speler door naar het 
volgende, moeilijker, niveau. 

Dit soort spellen is voor veel spel- 
pookvirtuozen zonder meer versla¬ 
vend. Vooral als de ontwerpers er in 
slagen steeds weer andere en verras¬ 
sende niveau's in het spel te plaatsen. 
Zo kan in dit programma, na het suc¬ 
cesvol afbreken van zes muren, een 
nieuw niveau worden gekozen. Vier 
demonen staan klaar om een balletje 


in je richting af te vuren. 

Zoals te verwachten was, demon 
nummer vier schiet de bal met een 
verwoestende snelheid door het veld. 
Vergeet die dus maar even en richt je 
als beginner liever tot nummer een of 
twee. Na nog een handvol, steeds 
weer ingewikkelder, muurtjes wordt 
de terugschietende tegenstander ook 
steeds moeilijker te verschalken. 
Giganoid is de waardige opvolger van 
Arkanoid en als zodanig natuurlijk 
weer moeilijker en verrassender. De 
3.5 inch-disk voor Amiga-computers 
kost 60 gulden. 


RETURN TO GENESIS 



Firebird, een van de Engelse soft¬ 
warehuizen onder de paraplu van Bri- 
tish Telecom, brengt het spel 'Return 
to Genesis' uit. Een zeer snel ruimte 
schiet-spel voor Amiga computers. 
Zoals bij de meeste computerspelle¬ 
tjes zit ook bij dit programma een ver¬ 
haaltje bijgesloten. Zo'n verhaaltje 
moet de speler in de juiste stemming 
brengen maar meestal slaat zo'n ver¬ 
telsel nergens op. Zo ook in dit geval. 
Het spel zelf is voor de liefhebbers be¬ 


slist de moeite en het geld waard. De 
bedoeling van het spel is om van ver¬ 
schillende planeten (mooie scherm- 
velden) twaalf door de vijand gevan¬ 
gen genomen geleerden te bevrijden. 
Tijdens dat bevrijden wordt de speler 
uiteraard danig op de ruimtescheeps- 
huid gezeten door een handvol fana¬ 
tiek schietende vijanden. 

Een van de mooiste onderdelen van 
dit spel is de zeer beweeglijke en 
doorzichtige ondergrond van futuristi¬ 
sche objecten in twee en soms zelfs 
drie scherm-lagen achter elkaar. De 
lagen bewegen onafhankelijk van el¬ 
kaar van links naar rechts en weer te¬ 
rug over het scherm. Het zogenaam¬ 
de 'scrollen'. Je vliegt met je ruimte- 
scheepje regelmatig achter en onder 
de nu en dan doorzichtige lagen. 
Soms bots je tegen verende obstakels 
die je ruimtescheepje terugkaatsen, 
helaas meestal richting vijand. 

Onze spel-specialist is in vijf levels tot 
een score van ruim 68.000 punten ge¬ 
komen. (Na een paar dagen spelen en 
weinig slaap). Er zijn tien levels dus 
de echte spel-fanaten kunnen hun lol 
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naar de aarde te zenden zodat ze 
daar kunnen worden onderzocht. Met 
verschillende zogenaamde ID-pasjes 
kan onze ruimtedetective gebruik ma¬ 
ken van de vele boordcomputers of 
toegang krijgen tot beveiligde ruimtes 
om die te onderzoeken. 

Er zal zo nu en dan een flinke knok¬ 
partij nodig zijn in het prachtige interi¬ 
eur van het ruimtevaartuig om onwilli¬ 
ge types tot rede te brengen. Heb je 
zo’n type verslagen dan is het nuttig 
zijn zakken na te zoeken op bruikbare 
zaken. Niet bepaald ethisch maar ja, 
de veiligheid van moeder aarde staat 
op het spel zullen we maar zeggen. 
Het zal snel duidelijk worden dat het 
niet de bedoeling is om iedereen die je 
pad kruist tegen de grond te timme¬ 
ren. Zo nu en dan zal een vriendelijk 
figuur je vragen om ’iets’ aan hem te 
geven, waarna zijn hulp je weer een 
stapje verder kan helpen. De zoge¬ 
naamde vechtrobots kun je de eerste 
tijd beter ontwijken. Ze zijn in het be¬ 
gin niet te verslaan! 

Het is bij veel spellen zinvol om na het 
starten van een spelschijfje de jeuk in 
de vingers enige tijd te laten voor wat 
het is. Vaak is er een demonstratie 
van het spel of heeft iemand moeite 
gedaan een aardig stukje computer¬ 
muziek te componeren. Zeker in dit 
geval zouden wij willen aanraden de 
vuurknop even met rust te laten en 
eens rustig naar de muziek te luiste¬ 
ren die na de start van deze schijf uit 
je computer komt. 

Pandora is een prima spel voor de 
Amiga 500 en kost 80 gulden. 


Zowel grafisch als wat geluid betreft is 
uitstekend gebruik gemaakt van de 
mogelijkheden van de Amiga compu¬ 
ter. Het geluid is echt prima, maar gaat 
zoals bij de meeste spellen toch na 
verloop van tijd vervelen. Een druk op 
de F2-knop van uw computer schakelt 
de achtergrond-muziek uit. Gelukkig 
blijft het geluid van de prachtige explo¬ 
sies, die bij het raken van de vijand 
een tevreden gevoel opwekken, wel te 
beluisteren. Met het indrukken van de 
F1-knop start je het spel, bijvoorbeeld 
na te veel gemaakte fouten, opnieuw 
bij het begin. 

Het zijn technische geleerden die je 
als speler moet bevrijden. Na hun be- 
vrijding mag je beschikken over de uit¬ 
vindingen die enkele van hen hebben 
gedaan. Zoals het jammer genoeg bij 
een flink aantal geleerden in de 'ech¬ 
te’ wereld ook het geval is betreffen de 
uitvindingen in dit spel betere wapens. 
Daardoor zal het beschieten van de 
vijand na sommige aan boord geno¬ 
men geleerden nog soepeler gaan. 
Een zeer ’snel’ spel voor Amiga-com- 
puters voor 80 gulden. 

PANDORA 

Tweehonderd jaar geleden is het 
ruimteschip Pandora (tevens de titel 
van dit spel) van de aarde vertrokken. 
Volledig door een supercomputer ge¬ 
stuurd en met een bemanning van 
mensen en robots, moet het ruimte¬ 


vaartuig onderzoeken of er buiten de 
aarde, diep in de onontdekte uithoe¬ 
ken van de ruimte, leven is. 

Plotseling blijkt het enorme vaartuig 
veel eerder dan de bedoeling is met 
een enorme snelheid weer richting 
aarde te koersen. Bezorgde geleer¬ 
den hebben de indruk dat er iets mis 
is met de boordcomputer, of mis¬ 
schien hebben buitenaardse wezens 
de macht over het schip overgeno¬ 
men. 

Er wordt een heel erva¬ 
ren en intelligente ruim- 
tespeurder op weg ge¬ 
zonden om de Pandora 
te onderscheppen. Wie 
anders dan jij kan in dit 
machtige ruimteschip 
onderzoeken of alles 
wel in orde is? 

Eenmaal aan boord zal 
je vermeende intelligen¬ 
tie zwaar op de proef 
worden gesteld. Via de 
speelpook-besturing 
begin je je onderzoek. 

Er zijn nogal wat figuren 
die de speurtocht naar 
onregelmatigheden 
proberen te verhinde¬ 
ren. Een duidelijke aan¬ 
wijzing dat er beslist iets 
mis is aan boord! 

Het is de bedoeling zo¬ 
veel mogelijk, door de 
Pandora in de ruimte 
verzamelde objecten. 
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Wanneer u eenmaal een Amiga in huis heeft staan wilt u er vast mee leren werken. 
Waarom anders heeft u zo’n aanslag op uw beurs gedaan? Juist om er profijt van te 
hebben. Of het nu om tekenen of programmeren gaat uw Amiga kan het allemaal aan. 
Zou het dan niet de hoogste tijd worden om eens met uw aanwinst te gaan werken? 
Wij zijn er klaar voor, u ook? Daar gaan we dan en veel plezier ermee. 

Beginnen met de Amigo 

O ok voor personen die nog geen Amiga hebben, maar er wel over zitten 
te denken, is deze reeks van artikelen zeer aantrekkelijk. Lezen lezen en 
nog eens lezen. Wie weet krijgt u wel een goed idee voor een zelf gemaakt 
programma. En wie weet brengt dit programma nog enige financiële voor¬ 
delen met zich mee. Maar goed, daar zult u zelf maar voor moeten zorgen. 



Wij zijn er alleen om de Informatie¬ 
stroom naar de lezer te vergroten. 
Hoe meer u leest des te meer u zult 
kunnen ondernemen met uw compu¬ 
ter. Natuurlijk geldt dit niet alleen voor 
de Amiga maar ook voor elke andere 
computer. Wij zullen in de volgende 
nummers wat pagina’s publiceren met 
veel starters informatie. Deze infor¬ 
matie helpt de startende Amiga ge¬ 
bruiker de goede weg in te slaan. Stap 
voor stap zullen wij alles gaan doorne¬ 
men. Bovendien zult u uw Amiga vo¬ 
cabulaire verder kunnen uitbreiden. 

De eerste stap 

De allereerste keer dat u de Amiga 
zult aanzetten, dient u wel het een en 
ander over de Amiga te weten. Raad¬ 
zaam is dan ook eerst de handleiding 
eens goed door te nemen. Zo maakt u 
nu gebruik van 3.5 inch diskette’s en 
geen 5,25 inch. U dient gebruik te ma¬ 
ken van een wat betere kwaliteit dis¬ 
kette. Verder ook een dubbelzijdige 
diskette en geen enkelzijdigel Bij aan¬ 
schaf van diskettes dient u hier op te 
letten. Omdat de enkelzijdige disket¬ 
tes aan de, laten we voor het gemak 
maar zeggen, achterkant van de dis¬ 
kette niet met data kan worden be¬ 
schreven. Het zou kunnen gebeuren 
dat de data op de, door de fabriek niet 
gegarandeerde kant, veloren gaat!! 
Weet u niet welke diskette’s u moet 
aanschaffen vraag uw verkoper dan 
even om goede raad! Vooral dat laat¬ 
ste dient u niet te vergeten. Betaal ook 
niet te veel voor de diskettes, kijk dus 
bij meerdere winkels wanneer dat mo¬ 
gelijk is. Elke gulden (of franc) is er 
één nietwaar! In onze woonplaats zijn 
een paar winkeliers die elkaar het le¬ 
ven zuur proberen te maken door tel¬ 
kens weer de diskette goedkoper te 


maken. Lang zal het dan ook niet 
meer duren voordat een van beide 
verdwenen is. En dit zou dan de twee¬ 
de worden in onze woonplaats. Aan 
10 diskettes zult u in het begin wel ge¬ 
noeg hebben. Voor het gemak gaan 
wij er in deze tekst van uit dat u de be¬ 
schikking heeft over minimaal een 
Amiga 500 met bijbehorende monitor. 
U kunt gebruik maken van of een TV 
of monochroom monitor. Bij het ge¬ 
bruik van een TV dient u wel een mo¬ 
dulator aan te schaffen. Als kleuren- 
monitor kunt u de Amiga 1081 of 1084 
gebruiken. Natuurlijk kunt u ook ande¬ 
re geschikte monitoren aanschaffen, 
maar vraag dan wel duidelijk om een 
geschikte monitor. Neem geen genoe¬ 
gen met een monitor zonder garantie, 
of de monitor moet navenant laag ge¬ 
prijsd zijn. Vraag desgewenst of de 


verkoper het geheel aan een Amiga 
wil koppelen en u ziet snel genoeg of 
het wil samenwerken. Op deze manier 
hoeft u niet nog eens terug. Vergeet 
ook nooit een passende kabel te vra¬ 
gen om de monitor aan de Amiga te 
kunnen aansluiten. Het zou naar zijn 
wanneer u een heel weekend niets 
kunt doen omdat de kabel niet goed is. 
En wanneer dan alle kabels en verde¬ 
re aansluitingen op de juiste manier, 
volgens de handleiding, zijn aange¬ 
sloten kunnen we beginnen. 

Het aanschakelen 

Uw Amiga aanzetten is een kwestie 
van de juiste stekker in de wandkon- 
taktdoos te steken en de juiste scha¬ 
kelaar om te zetten. Schakel de moni¬ 
tor in en u ziet nu hoogst waarschijn- 
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lijk een fraaie afbeelding op uw 
scherm. Om de 2 a 3 secon¬ 
den hoort u een lichte tik. De 
Amiga vraagt om de Amiga 
WORKBENCH diskette. Bij 
elke tik initialiseert het interne 
systeem de diskdrive om te 
'kijken’ of er al een bruikbare 
diskette in het gleufje is ge¬ 
stopt. Is dit positief dan wordt 
vervolgens onderzocht of het 
ook om een BOOTABLE disk 
gaat. 

Bootdisk 

Wanneer er nu een DOS (BOOTABLE 
disk) in de drive zit wordt het Amiga- 
DOS ingeladen. En wanneer nu blijkt 
dat er nog geen DOS disk in de drive 
zit vraagt het systeem om een andere 
diskette (AmigaDOS staat voor Disk 
Operating System). Dit steeds weer 
opnieuw initialiseren van de diskdrive 
heet ook wel ‘vreten’ of ‘happen’. 
Plaats nu maar eens de WORK¬ 
BENCH diskette in de drive. U krijgt 
een copyright melding, en wat andere, 
hier verder onbelangrijke informatie, 


op uw scherm te zien. U hoort nu de 
diskdrive zijn werk verrichten, DOS in¬ 
laden. Vergeet niet dat u NOOIT een 
diskette in of uit de drive stopt of haalt 
als de drive nog aktief is! Een bezoek¬ 
je bij de computerdokter is dan niet 
geheel onnodig! 

Workbench 

Wanneer de drive klaar is met laden is 
de WORKBENCH geactiveerd. U ziet 
een pijltje op uw scherm, dat u met de 


muis kunt bewegen. Vanuit de 
WORKBENCH kunt u pro- 
gramm’s inladen door de 
ICONS aan te klikken. U gaat 
gewoon met de pointer op de 
afbeelding van het betreffende 
programma staan en klikt twee 
keer heel snel achter elkaar de 
afbeelding aan. Door bij het op¬ 
starten van de Amiga op 
<CONTROL-D> te drukken en 
vervolgens load wb In te tikken 
komt u in de CLI. CLI staat voor 
Command Line Interface. Van¬ 
uit CLI heeft u niet die mooie 
plaatsjes die u wel in de 
WORKBENCH heeft. Vanuit de CLI 
moet u commando’s intikken. Lees 
het gedeelte waar wij de CLI instruc- 
tie’s uitleggen maar eens door. Deze 
afdeling zult u voorlopig nog wel te¬ 
genkomen. 


JOHAN & JOHAN. 


AMIGA BUSWARE 


Compleet assortiment Amiga PDS software voor ƒ 11,- per schijf.Vraag nu een gratis catalogus aan of 
bestel voor ƒ 11,- de speciale introductiediskette, namelijk: 

de Amiga Busware Introschijf __ 

Dit is een schijf uit het Busware assortiment, die we samen met een aantal Amiga specialisten heb¬ 
ben samengesteld. Daarop staat de volgende seiektie: 

Grafisch demopakket met workbench schermgrapjes, waaronder Wave Bench, Melt en Dropshadow 
Gauge om te bepalen hoevel geheugen er vrij is 

Record Player (om zelf demonstraties te maken, alle muis en toetsbewegingen kunnen herhaald worden) 

Helios Mouse (maakt venster, waar de muis is, actief) 

Pins (grafisch programma) 

Asteroids (ruimtespel) 

DOS kwik Om meer op schijf te krijgen 

Drunken Mouse (de muis gaat rare bewegingen maken op het scherm) 

Backgammon spelprogramma 

X-lcon Om programma’s, die geen ICON hebben, toch te kunnen starten met Icon 
Conman (CLI Editor) 

Bij deze introductieschijf doen we natuurlijk ook een catalogus van onze andere Amiga Busware. 

bel: 020-273198 /02152-62343 

Of maak ƒ11,- over op giro 3157656 van Infolist Huizen (girocheck sturen kan ook naar PB 112,1260 AC Blaricum). 
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Zoals u als Amiga gebruiker wel zult weten zijn er een heleboel aparte commando’s te 
gebruiken. Maar welke zijn dat nu en nog belangrijker: wat doen die. In dit artikel kunt 
u een start vinden van de AmigaDOS CLI cursus. De schrijvers van de cursus zijn JO- 
HAN & JOHAN 

Binnenin AmigaDOS 



FORMAT 

Dit commando wordt gebruikt voor het 
formatteren van een diskette. Dit 
houdt in dat de diskette verdeeld 
wordt in 80 tracks (cilinders). Een 
track bestaat uit 2 sporen, dit omdat 
de Amiga diskdrive een dubbelzijdige 
diskdrive is. Deze schrijft dus aan elke 
kant van de diskette een spoor. Elk 
spoor is weer onderverdeeld in 11 
sectoren. Op elke sector kunnen 512 
Bytes geschreven worden. De opslag¬ 
capaciteit is nu vrij makelijk te bereke¬ 
nen. We hebben namelijk 80 tracks 
maal 2 sporen maal 11 sectoren maal 
512 bytes is 901120 Bytes. Aangezien 
een kiloByte uit 1024 Bytes bestaat 
moet het totale bedrag nog eens door 
1024 gedeeld worden, we komen dan 
uit op een totaalcapaciteit van 880 
KByte per diskette. Het formatteren 
van een diskette gaat als volgt; 
FORMAT DRIVE <disk> NAME 
<naam> [NOlCONS]. 

De toevoeging NOlCONS is optio¬ 
neel, dwz. dat het niet perse nodig is 
om deze erachter te zetten. De functie 
van het keyword is, dat de gegevens 
voor de Trashcan niet op de net gefor¬ 
matteerde schijf worden weggeschre¬ 
ven. Willen we nu een diskette format¬ 
teren in de standaard diskdrive (dfO;) 
met de naam ‘test’, dan doet u dit als 
volgt: 

FORMAT DRIVE dfO: NAME test 

Na het invoeren van deze instruktie 
wordt het commando FORMAT van 
disk gelezen. Pas als dit gebeurd is 
zal de volgende melding in het CLI- 
venster verschijnen: 

'Insert disk to be Initialized in drive 
dfO: and press Return’ 

Nu kunt u de te formatteren diskette in 
de diskdrive stoppen. Denk er wel om 
dat een disknaam niet langer mag zijn 
dan 30 leestekens. Wij raden u aan 
hier niet te veel gebruik van te maken, 
want u loopt namelijk de kans dat een 
lange naam in de workbench een an¬ 
dere naam overlapt. Een naam mag 
geen spaties bevatten, dit geldt trou¬ 
wens voor de gehele CLI. Wel mogen 


er spaties gebruikt worden als het ge¬ 
hele onderdeel van de instructie tus¬ 
sen aanhalingstekens is geschreven, 
bijvoorbeeld: DIR "dfO: basic llstings". 
Toch is het verstandiger dit niet te 
vaak te gebruiken omdat het lastiger 
is een dergelijke naam te gebruiken. 
Het is veel beter gebrui k te maken 
van het ‘underline’ teken. 

DIR 

Met de instructie DIR kunt u een in¬ 
houdsopgave opvragen van een dis¬ 
kette, harddisk of ramdisk. Voor het 
opvragen van een directory geldt de 
volgende syntaxis: 

DIR DIR,OPT/K 

U bent bijvoorbeeld op zoek naar de 
file grafieken in de subdirectory basi- 
clistings op een diskette in diskdrive 
dfO:. Dit doet u dan als volgt; DIR 
dfO:basiclistings/grafieken. Om de ge¬ 
hele directory van de schijf te bekijken 
gebruikt u: ‘DIR opt a’. De optie ‘a’ 
staat voor ALL. Op het eerste gezicht 
lijkt de output een geordende chaos 
maar de structuur blijkt toch zeer een¬ 
voudig te zijn. Een voorbeeldje. Stel u 
heeft een schijf met de directory ba- 
sicdemos. Deze is dan weer onder¬ 


verdeeld in grafiekdemos en geluid- 
demos. DIR opt a geeft dan weer: 

basicdemos (dir) 
geluidsdemos (dir) - hierin staan 
geluid demos. 

grafiekdemos (dir) - hierin staan 
grafische demos. 

.. - eventuele andere programma’s 

Met ‘DIR opt i’ bent u in staat een di¬ 
rectory langzaam te bekijken. De ‘i’ 
staat voor INTERACTIVE. Deze optie 
zorgt ervoor dat de uitvoer na elke 
naam stopt en er een vraagteken ach¬ 
ter komt te staan. Wanneer u een 
vraagteken invoert krijgt u de mogelij¬ 
ke opties op uw beeldscherm te zien. 
U kunt met een <RETURN> verder of 
met <DEL> het vermelde bestand 
wissen. Het is echter niet mogelijk een 
bestand te wissen dat een of meerde¬ 
re subdirectories bevat. Als achter de 
gegeven naam de toevoeging ‘DIR’ 
staat kunt u door op ‘E’ (enable) te 
drukken deze directory activeren. U 
krijgt nu automatisch de inhoudsopga¬ 
ve van deze subdirectory. Het is mo¬ 
gelijk de vorige directory te vervolgen 
door op ‘B’ (kort voor back) te druk- 
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ken. Met het commando T’ (dit is de 
afkorting van type) kunt u de ASCII- 
bestanden lezen. Dit heeft alleen be¬ 
trekking op tekstbestanden. Gebruikt 
u het bij normale programma’s of CU 
routines dan zult u allemaal rotzooi op 
uw scherm zien. Dit is echter met het 
CLI-commando TYPE weer op te los¬ 
sen. Meer hierover bij de beschrijving 
van dit commando. Met <CONTROL- 
C> kunt u de T optie van DIR op elk 
gewenst moment afbreken. Als er dan 
nog rotzooi verschijnt kun u met 
<C0NTR0L-0> de Amiga terugbren¬ 
gen in zijn normale tekenset. Om de 
directory te verlaten kunt u Q (quit) in¬ 
toetsen. Het is mogelijk om de gehele 
directory interactief te bekijken met 
het commando ‘DIR opt ai’. Het is dus 
mogelijk de opties bij elkaar te zetten. 
Het DIR commando beschouwt ze als 
aparte opties. Als u een normale di¬ 
rectory trekt kunt u de uitvoer van een 
directory stoppen door een willekeurig 
toets in te drukken. Pas wanneer u 
een <RETURN> geeft of wanneer dit 
teken wordt verwijderd met een 
<BACKSPACE> komt de uitvoer weer 
op gang. Verder kent DIR nog een ‘re- 
direction teken'. Het is mogelijk om de 
uitvoer van DIR in een file op te slaan. 
Probeer het volgende regeltje: DIR in¬ 
houdsopgave opt a. In de file inhouds¬ 
opgave zal nu de gehele inhoudsop¬ 
gave van de schijf te zien zijn. 

CD 

Dit staat voor ‘change directory’. Dit 
betekent dus dat u met dit commando 
van actuele directory kunt verwisse¬ 
len. Alle CU commando’s zoeken, als 
er geen directory opgave is gedaan, in 
deze directory. Bijvoorbeeld, CD ba- 
sicdemos DIR is hetzelfde als: DIR 
basicdemos. De instructie wordt op de 
volgende manier gebruikt: ‘CD <direc- 
tory>’. Met DIR is het nu mogelijk deze 
directory te bekijken. Met de instructie 
‘CD dfO:’ komt u weer terug in de root- 
directory van diskdrive dfO: Het kan 
ook voorkomen dat u niet meer weet 
welke directory actueel is. Om dit te 
weten te komen typt u in CD. Op het 
scherm zal dan de naam van de actu¬ 
ele directory verschijnen. 

MAKEDIR 

Hiermee kunt u een directory aanma¬ 
ken. De directory wordt altijd een ni¬ 
veau lager aangemaakt dan de be¬ 
staande directory. Dit wil zeggen, de 
directory die u aanmaakt zal binnen 
de actuele directory verschijnen. Maar 
weer even terug naar de voorbeelddi- 
rectory. Stel u bevindt zich dus in de 
directory basicdemos. U maakt nu 


een directory aan met de naam ‘test’. 
Deze directory zal nu binnen de direc¬ 
tory ‘basicdemos’ staan. Met DIR 
roept u deze dan op de volgende ma¬ 
nier aan: DIR basicdemos/test. De in¬ 
structie voor het aanmaken van een 
directory ziet er als volgt uit: ’makedir 
dfO:basic/info’. Er word nu in de direc¬ 
tory ‘basic’ een subdirectory ‘info’ aan¬ 
gemaakt. Met copy kunt u dan de di¬ 
rectory verder uitwerken, maar dat is 
van latere zorg. 

DELETE 

Met deze functie kunt u een bestand 
of een directory wissen van de ver¬ 
melde diskdrive, dit geldt ook voor een 
ramdisk: ‘delete dfO:c/list’. In de subdi¬ 
rectory ‘c’ zal nu de file ‘list’ op diskdri¬ 
ve dfO: worden gewist. Een subdirec¬ 
tory kan op de volgende manier ge¬ 
wist worden: ‘delete dfO:basic/info all’. 
Het is ook mogelijk om met een dele¬ 
te meerdere files in een keer te wissen 
(max. 9). Tussen elke te deleten file 
moet dan wel een spatie: 


delete dfO:c/clock 
df1 :s/startup-sequence 



Een andere manier om meerdere be¬ 
standen of directories in een keer te 
wissen is door met behulp van de zo¬ 
genaamde jokers (# en ?). Stel op een 
diskette staat een hele waslijst aan 
test programma’s, testi tot en met 
test12, deze kunnen nu in een keer 
gewist worden: 

‘delete dfO:test#?’ 

Het ‘#?’ zorgt er voor dat alles wat met 
test begint wordt verwijderd. Pas ech¬ 
ter wel op met het gebruik van jokers, 
u zult niet de eerste zijn die zijn net 
aangemaakte bestand per ongeluk 
‘wist’ door het gebruik van deze jo¬ 
kers. Door de toevoeging ‘q’ (quiet) 
voorkomt u dat de naam van de file die 
gewist wordt, afgedeeld wordt op het 
beeldscherm. 


COPY 

Wellicht een van de meest gebruikte 
commando’s vanuit de CU. Met dit 
commando is het mogelijk bestanden 
of zelfs gehele directories te copiëren. 
De syntax van het commando luidt; 
COPY <bron> <to> <doel> opties 

De bron en het doel mogen gelijk zijn, 
dat wil zeggen je mag op hetzelfde de- 
vice, of in dezelfde directory kopiëren. 
Ook bij COPY geldt weer het gebruik 
van jokers. Vooral bij programma’s die 
files met een nummer extensie weg¬ 
schrijven, bijvoorbeeld, superbase die 
de files met een dergelijke extensie 
wegschrijft, is deze mogelijkheid zeer 
handig. Een voorbeeld. Stel u werkt 
met superbase, en u wilt van uw be¬ 
standen een backup maken. U maakt 
een kleine batch-file aan die als volgt 
kan luiden: 

superbase ;bijvoorbeeld de aanroep 
van superbase, 
copy programmes.#? to df1: 
echo "bestanden gekopieerd" 

Na deze operatie zullen alle bestan¬ 
den waarin de naam ‘programmas’ 
aan het begin voorkomt gecopieerd 
zijn. De opties die COPY ondersteund 
zijn; ALL: dit betekent dat alle files die 
in de directory, die u als brondirectory 
opgegeven heeft, gekopieerd worden. 
QUIET betekent dat niet meegedeeld 
wordt welke files worden gekopieerd. 
COPY kan naar alle devices bestan¬ 
den copiëren. Bijvoorbeeld, u wilt uw 
net afgewerkte bestand naar de prin¬ 
ter sturen. Dit kan met het commando 
COPY <bestandsnaam> TO prt: 

Verder kunt u gegevens sturen of ha¬ 
len van of naar SER: (seriële poort), 
PAR: (parallele poort), DFx: (alle disk¬ 
drives), DHO: (harddisk), RAM: (ram¬ 
disk), etcetera. Nog even een waar¬ 
schuwing. Als er in de doeldirectory al 
een file staat met de naam die u opge¬ 
geven heeft, wordt hier zonder pardon 
overheen geschreven. Als laatste dan 
nog een opmerking, voor het copiëren 
van een diskette is het mogelijk het 
COPY-commando te gebruiken maar 
aan te raden is het niet. Het DISKCO- 
PY commando is beter op deze taak 
berekend, bovendien zijn er verder 
nog genoeg P.D-kopieer programma’s 
verkrijgbaar die hiervoor nog geschik¬ 
ter zijn. 

RENAME 

RENAME heeft tot taak, de naam van 
een bestand te veranderen. De syntax 
van dit programma is zeer eenvoudig: 

RENAME <oude naam> <TO> 

<nieuwe naam> 
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Ook hier kan de naam bestaan uit een 
path, dit wil zeggen, een directory 
aanwijzing gescheiden door een 7’ en 
vervolgens de naam van het te ‘rena¬ 
men’ programma. Eventueel kan voor 
de directory aanwijzing nog een devi- 
ce naam als dfO:, dft: etc. staan. Een 
tweede mogelijkheid is, is het ver¬ 
plaatsen van een bestand of directory 
binnen de directory-structuur. Hier¬ 
mee kunt u een directory binnen een 
andere directory plaatsen, bijvoor¬ 
beeld u heeft weer de directory ‘ba- 
sicdemos’. Dit wilt u binnen de direc¬ 
tory ’basicprogs’ hebben. De opdracht 
RENAME basicdemos TO 
basicprogs/basicdemos 
verzorgt dit. 

LIST 

Toen wij dit commando voor de eerste 
keer zagen vroegen we ons echt af: 
‘waarvoor dient dit?’ Je hebt toch een 
DIR commando? Heel snel zijn we er 
achtergekomen dat onze eerste ge¬ 
dachten fout waren. Oké, MS-DOS 
heeft het wel beter opgelost met de 
verschillende opties voor DIR maar 
toch blijft LIST een handig commando 
voor Amiga-DOS. LIST geeft meer in¬ 
formatie dan het DIR-commando. De 
format van LIST is: LIST <path><op- 
tles>. Zonder path (letterlijk vertaald, 
pad, weg; de directories waarbinnen 
het commando moet zoeken) neemt 
LIST aan dat de actuele directory be¬ 
doeld wordt. De output van LIST ge¬ 
beurt volgens het formaat, program¬ 
manaam, grootte (in bloks) of directo¬ 
ry vermelding (dir), flags, aanmaakda- 
tum, -tijd. De flags staan altijd in de 
combinatie ‘rwed’ De letter staan voor: 
r - READ, lezen is toegestaan 
w - WRITE, schrijven is toegestaan, 
e - EXECUTE, programma is 
uitvoerbaar 

d - DELETE, programma mag worden 
gewist. 

De flags r,w,e hebben nu nog geen 
functie, dat wil zeggen, AmigaDos 
trekt zich niets van de status van deze 
flags aan. De datum en de tijd geven 
aan wanneer het bestand voor het 
laatst ‘geupdated’ is. Ook bij LIST ko¬ 
men we weer diverse opties tegen. 
Deze zijn achtereenvolgens: 

DIR: in welke directory gezocht moet 
worden. 

PAT: aan welk patroon moet voldaan 
worden, ook hierbij komen jokers 
goed van pas. ! 

ÏCEYS: geeft aan vanaf welke track de j 
file staat. 

NODATES: onderdrukt de weergave 
van de datum. 


TO: hierdoor kunt u de output van 
LIST naar ander device of file sturen. 
Verder bestaan nog de opties SINCE 
en UPTO. Hiermee kunt u de output 
van LIST vanaf of tot een bepaalde 
update datum regelen. Stel u wilt de 
directory entries sinds 19 november 
1987 zien. U typt dan in: LIST SINCE 
19-nov-87. De datumvermeldingen 
hoeven niet persé data te zijn. De Ami¬ 
ga kent ook nog de vermeldingen To¬ 
day, Yesterday, en alle weekdagen. U 
kunt deze ook zonder moeite gebrui¬ 
ken. De regel ‘LIST SINCE 19-nov-87 
UPTO Yesterday’ is dan ook een gel¬ 
dige invoerregel. 



DISKCOPY 

Een vorm van COPY, alleen deze co- 
pieert niet files maar een gehele schijf. 
De syntax van DISKCOPY: 

DISKCOPY <FROM><drive>TO 
<drive> <NAME <name». 

Bij DISKCOPY hoeft u de doeldisket- 
te niet eerst te formatteren, dit wordt 
door het programma gedaan. Pas wel 
op welke schijf u gebruikt, alle gege¬ 
vens die er op geschreven staan zijn 
onherroepelijk verloren. De optie 
FROM is optioneel, u mag het dus 
weglaten, TO is verplicht. Als u de ko¬ 
pie een andere naam wilt geven dan 
biedt het laatste deel van het com¬ 
mando hiertoe gelegenheid. Doormid¬ 
del van NAME <naam> geeft u de 
doeldiskette een andere naam. Als u 
met 1 diskdrive moet werken kan het 
een langdurige zaak worden, op zich 
een goede training voor het jongleren, 
maar na een aantal keren wisselen 
met schijven zult u toch echt schoon 
genoeg hebben van dit gedoe en 
schreeuwend van ellende naar de 
computerwinkel hollen om een twee¬ 
de drive. 

! 

RELABEL 

Met rename kunt u files een andere 
naam geven, RELABEL biedt deze 1 


mogelijkheid voor de naam van een 
diskette. Om de diskette in drive 1 de 
naam bootschijf te geven, typt u in: 
RELABEL df1: bootschijf. Het is mo¬ 
gelijk om spaties te gebruiken maar 
het is niet aan te raden. 

INFO 

Een instructie zonder parameters. 
Hoe wonderlijk! Toch is het een zeer 
handige instructie. Op geen andere 
manier dan met dit commando is het 
aantal vrije blokken op de schijf te 
controleren. De uitvoer van het com¬ 
mando begint met de aangesloten 
diskdrives, harddisks etcetera., de 
‘mounted disks’ genaamd. Dan staat 
er vermeld wat voor devices er zijn 
aangesloten, hoe groot ze zijn, hoe¬ 
veel blokken er gebruikt zijn, hoeveel 
er nog vrij zijn, het aantal errors (zeer 
rampzalige zaak, altijd voorkomen 
dus!) de status van het device (write of 
read) en als laatste, de naam. Onder 
‘Used’ wordt het aantal bezette blok¬ 
ken vermeld. ‘Free’ geeft het aantal 
vrije blokken weer. ‘FuH’ is de verhou¬ 
ding vrije blokken en bezette blokken 
(2 blokken = 1 KByte). Als tweede 
staat dan nog vermeld ‘volumes avai- 
lable’. Dit geeft aan met welke disket¬ 
tes de WorkBench is opgestart en 
welke diskettes voorhanden zijn zon¬ 
der te wisselen. 

INSTALL 

Wie heeft er nog geen last gehad van 
virussen? Dan is het al vrij duidelijk 
waar dit commando voor dient. Een 
soort virus verwijderaar zouden we 
bijna zeggen. Helemaal onwaar is dit 
zeker niet. Het commando dient om 
een schijf opstartschijf te maken. De 
syntax van het commando luidt: 
INSTALL <DRIVE> (drive) 

DRIVE is optioneel. Na DRIVE dient 
dan wel het drivenummer te komen 
staan. Na een <RETURN> start het 
programma en zorgt ervoor dat er een 
nieuwe bootsector op de schijf wordt 
geschreven. Precies op de plaats 
waar de meeste virussen zitten! 

TYPE 

Dit commando ‘typt’ informatie op het 
beeldscherm. Voor degenen die MS- 
DOS kennen is dit een zeer bekend 
commando. Met dit commando kunt u 
de inhoud van een file, leesbaar of niet 
leesbaar, op het beeldscherm afbeel¬ 
den. Bij het DIR commando hadden 
we ook al zoiets. (DIR opt i) De uitvoer 
stopt niet als het scherm vol is. Hier is 
wel een mogelijkheid voor. Druk een 
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toets en de uitvoer stopt tijdelijk. Met 
het indrukken van een willekeurige 
toets zal de uitvoer weer door gaan. 
De syntax: 

TYPE <programmanaam> <opties>. 

Ook bij TYPE is weer het gebruik van 
een ‘redirection’ teken mogelijk. Met 
TYPE >prt: ramlest.txt wordt de uit¬ 
voer van test.txt naar de printer ge¬ 
stuurd. Bij een redirection, of omlei¬ 
ding teken gaat het dus om het groter 
dan teken. Ais u nu van een machine¬ 
taal programma een nette uitvoer wilt 
hebben kunt u de optie ‘h’ toevoegen. 
TYPE <naam> opt h’ geeft een hexa- 
decimale dump van een file. Helemaal 
rechts staan de leesbare tekens afge- 
beeld. Niet afdrukbare tekens worden 
vervangen door een punt. Verder kent 
TYPE dan nog de optie ‘n’. De ‘n’ staat 
voor number. De uitvoer van elke re¬ 
gel van de file zal dan voorafgegaan 
worden door een regelnummer. 

JOIN 

Zoals het woord al zegt, voeg samen. 
De instructie kan maximaal 15 bestan¬ 
den samenvoegen tot een nieuw be¬ 
stand. De syntax luidt: 

JOIN <bestanden (gescheiden door 


een komma)> AS <nieuw bestand>. 

AS is hierbij een verplicht keyword. 
Een voorwaarde bij JOIN is, dat in de 
reeks bronbestanden elke filenaam 
maar 1 keer mag voorkomen. Ook bij 
JOIN is het gebruik van jokers weer 
toegestaan. JOIN kan als een soort 
TYPE dienen door de uitvoer om te 
leiden naar het beeldscherm met be¬ 
hulp van het teken of om de uitvoer 
van meerdere bestanden achter el¬ 
kaar naar de printer te sturen door na 
AS prt: te vermelden. 

SEARCH 

Tja, de vlag dekt de lading. Met dit 
commando kunt u files doorzoeken op 
een gegeven reeks tekens. Het com¬ 
mando luidt: SEARCH <FROM> 
<SEARCH> <ALL> <string> EROM, 
SEARCH en ALL zijn weer optioneel. 
Met EROM geeft u het door te zoeken 
path naar een directory of bestand 
aan. Met de toevoeging SEARCH 
geeft u aan dat het commando in de 
actuele directory moet zoeken, bij¬ 
voorbeeld; search "testnaam". Hierbij 
wordt in de actuele directory gezocht, 
door alle files heen, naar ’testnaam’. 
Als SEARCH iets vindt dan bestaat de 


uitvoer uit: de naam van de file ge¬ 
volgd door het nummer en de tekst 
van regel waar de zoekstring instaat. 
Als laatste toevoeging is er nog ALL. 
AH forceert SEARCH tot het doorzoe¬ 
ken van alle directories (kun je beter 
niet doen op een 30 MB harddisk). 
Wel even een waarschuwing, bij uit¬ 
zondering maakt SEARCH wel onder¬ 
scheid tussen kleine letters en hóófd¬ 
letters in de zoekstring. Ook is bij 
SEARCH weer het gebruik van jokers 
in de door te zoeken files toegestaan. 
SEARCH #?word test, zoekt in alle fi¬ 
les die eindigen op word, naar het 
woord ‘test’. 

TOT SLOT. 

Wij hopen u met deze AmigaDos cur¬ 
sus van dienst te zijn geweest. Schrij¬ 
ven en blijven schrijven is ons motto. 
Waar is uw brief? Kom en klim in de 
pen. Laat ons weten wat u er van 
vindt. Tot de volgende keer dan maar 
weer, en computer ze!! Maak niet te 
veel brokken met de Amiga diskettes. 

JOHAN & JOHAN. 



SETTLE LIGHT SOFT’S 

„SUPER SOUND SYSTEM” 

voor de C-64 

DAAR ZIT MUZIEK IN! 

★ Muziek uitprintbaar 

★ Uitgebreide edit mogelijkheden 

★ Zeer gebruikersvriendelijk 

★ SID-chip geheel instelbaar 

★ Metronoom naar keuze 

★ Muziek los afspeelbaar en afspeelbaar in eigen 
BASIC-programma 

★ Stemmen tijdens afspelen omschakelbaar 


In de betere computershop voor 

ƒ 37,50 (cassette) 
ƒ 45, — (diskette) 





incl. BTW 


Commodore Info 5188 


77 





Amigo hoek 


Zoals u allemaal wel zult weten is de Amiga een zeer gecompliceerde computer. Vaak 
is hulp van een computer collega zeer welkom wanneer u problemen heeft. Maar die 
zal ook niet alles weten. Een goede oplossing is dan het aanschaffen van enige Ami¬ 
ga boeken. Welke u het beste kunt kopen moet u zelf maar uitkiezen. Keuze is er vol¬ 
doende dat kunt u hieronder wel zien. 

HET ZWAARDERE WERK 



O m met de Amiga kunst en vliegwerk uit te kunnen halen moet u wel het 
een en ander in huis hebben. Natuurlijk zult u niet direct alles van de 
Amiga weten. De enige echte goede oplossing is dan het zelf aanschaffen 
van enige dikke boeken. Vervolgens moet u die boeken eens goed gaan be¬ 
studeren en dan zult u al veel minder problemen hebben bij het werken op 
en aan de Amiga. 


De standaard ‘PILLEN’ van Sybex zijn 
in de Engelse taal geschreven, dus 
die zijn niet vooreen ieder weggelegd. 
Databecker is een firma die al zeer 
lang bezig is met het oplossen van dit 
soort taalproblemen. Met de boeken 
van DATABECKER moet het pro¬ 
grammeren in basic al helemaal geen 
problemen meer opleveren. Voor de 
taal C zult u toch nog wat meer dan 
boeken in huis moeten hebben. Alie 
Databecker boeken zijn van oor¬ 
sprong geschreven in de Duitse taal 
en worden door Bruna in het Neder¬ 
lands vertaald. En doordat deze boe¬ 
ken in het Nederlands zijn geschreven 
hoeft de Amiga gebruiker niet meer 3 
talen te beheersen. 

Wegwijs op de Amiga 

Dit 238 pagina’s tellende boekwerk is 
vooral voor de 1000 bezitter een leu¬ 
ke aanwinst. Wanneer u nog niet zo 
veel over de Amiga weet is dit een 
aanrader. De titel zegt het al, u wordt 
wegwijs op uw Amiga. In dit boek 
wordt als eerste uitgelegd hoe de Ami¬ 
ga geinstalleerd moet worden. Bijna 
alle hardware staat in het boek ver¬ 
meld, zo wordt er precies verteld wel¬ 
ke printers er door de Amiga onder¬ 
steund worden. De basiseigenschap¬ 
pen zoals, Intuition (de interface tus¬ 
sen mens en computer). Muis bestu¬ 
ring, vensters, Amiga opstarten, Pre- 
ferences, het Noteblok, de Klok, Basic 
inleiding, de vuilnisbak van de Amiga 
(trashcan), en nog veel meer wordt in 
dit boek besproken. Te veel om op te 
noemen dus. Zo staan er achter in dit 
boekje 7 appendices over storingen, 
het toetsenbord, icons, verklarende 
woordenlijst, icon editor, technische 
gegevens en een trefwoorden regis¬ 


ter. Zeker voor de beginner een beste 
aanschaf. Dit boekje kost ƒ 59,90 en 
is verkrijgbaar onder ISBN nummer: 
90 229 3413 6. 

Amiga tips en truuks 

Dit 291 pagina’s tellende boekwerk is 
direct al een stuk interessanter voor 
Amiga gebruikers. Of u nu een 
500,1000 of 2000 in huis heeft staan 
het maakt niets uit. Dit boek start met 
de 23 meest gevraagde problemen 
met de Amiga. Hoe krijg ik wat op de 
printer, het aanmaken van een ram- 
disk, het kopiëren van een program¬ 
ma met maar een drive, wat is een 
startup-sequence en wat kan ik er 
mee, kan de Amiga ook spreken en zo 
ja hoe. Dit zijn een paar van die veei 
gevraagde vragen, In hoofdstuk 2 
wordt u met basic op weg geholpen. 
Diverse routines helpen u Amiga Ba¬ 
sic te leren begrijpen. Persoonlijk wer¬ 
ken wij liever in C dan in Amiga Basic 
omdat deze zo afschuwelijk traag is! 
En in hoofdstuk 3 wordt het, voor de 
aspirant C FREAKS onder ons, echt 
interessant. In dit hoofdstuk staan 
voorbeelden die u met behulp van een 
goede compiler moet compileren. U 
wordt op weg geholpen bij het maken 
van eigen Sereens, Windows en diver¬ 
se andere voorbeelden, natuurlijk is 
dit boek geen C leerboek maar handig 
is het zeker wel. En laten we nu eerlijk 
zijn daar zitten alle C beginners op te 
wachten. Zeker gezien het aantal vra¬ 
gen over C. Door het goed bestuderen 
van dit hoofdstuk zal ook uw ‘C lamp- 
' je’ in de bovenkamer gaan branden. 

I Wanneer u als aspirant C freak wat 
j wilt in de taal C zult u direct naar dit ( 
fraaie hulpmiddel moeten grijpen. Wij 
hebben persoonlijk alle programma’s ; 



zitten intikken, en we moeten wel 
even vertellen dat wij een aantal pro¬ 
blemen hadden bij het gebruik van de 
MANX Aztek C compiler. Ook met de 
C compiler van Lattice, waarmee de 
voorbeelden moesten werken, kregen 
wij sommige programma’s niet aan de 
praat. Gelukkig kunt u bij Bruna na het 
aanschaffen van de boeken rekenen 
op een goede ondersteuning. Stuur 
maar een lege diskette op, dan krijgt u 
de goede C fiie’s toegestuurd. Op 
deze manier kunt u reken op een goe¬ 
de ondersteuning. Dus werkt u met de 
MANX Aztek C compiler dan dient u 
direct na aanschaf een diskette naar 
BRUNA op te sturen (het adres staat 
voorin het boek). Vergeet niet een 
copy van de aankoopbon bij de disket¬ 
te op te sturen. De werkende pro¬ 
gramma’s voor de MANX compiler 
staan ook op de diskette die u terug 
krijgt. En wel in source vorm! Wanneer 
U deze diskette ontvangen heeft dient 
u alles met de -hL optie te compileren, 
bij het linken dient u de optie -Ic32 te 
gebruiken. Probeer dit ook eens bij de 
Sybex voorbeelden uit de standaard 
PILLEN. En u zult zien dat die vaak 
wel werken met deze opties. Nog¬ 
maals moeten wij er op wijzen dat dit 
geen leerboek voor de taal basic en/of 
C is. Daar zult u of het basic boek, wel¬ 
ke hieronder wordt besproken, moe¬ 
ten aanschaffen. Tips en truuks kost 
ƒ 69,90 en is verkrijgbaar onder ISBN 
nr: 90 229 3442 X 

Het Amiga Basic boek 

Het Amiga basic boek is een dikke pil. 
Met zijn 576 pagina’s tellende omvang 
begrijpt u wel dat het hier om een 
soort leerboek gaat. Dus bent u of 
gaat u wat in basic ondernemen is dit 
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boek gewoonweg een MUST. Zo wor¬ 
den er in deze pil een aantal goede 
bruikbare programma’s ontworpen. 
Dit boekwerk kopen is voor elke basic 
programmeur een aanrader. Het is 
een handige tooi bij het ontwikkelen 
van diverse programma’s. Ook het 
werken met gegevens bestanden is ! 
ruim aan bod. Natuurlijk is het werken 
in de grafische mode niet vergeten. Al 
lerende leert u uw Amiga kennen. En 
vergeet niet dat dit een heleboel nutti¬ 
ge programma’s kan opleveren. Wie 
wil er nu niet met Bobs, Sprites, 
Sereens, Windows kunnen werken. 
En daar is de Amiga nu juist zo goed 
in. Wanneer u daar GEEN gebruik van 
maakt had u net zo goed op de C64 
kunnen blijven werken! Een spel spe¬ 
len kunnen we allemaal wel, maar hoe 
zit dat met het programmeren. Wan¬ 
neer u de programma’s netjes heeft 
zitten intikken kunt u deze het beste 
met een goede basic compiler compi¬ 
leren. Dit boek kost ƒ 59,90; ISBN nr: 
90 229 3418 7. 

Het Supergrafiekboek 

Dit 424 pagina’s tellende boekwerk is 
een must voor alle demo program¬ 
meurs in ons land. Natuurlijk ook alle 
spelprogrammeurs dienen dit boek¬ 
werk in huis te hebben. Er staat te veel 
om op te noemen in dit boek maar wij 
maken een kleine selectie. De grafi¬ 
sche instructies van AmigaBasic, la¬ 
den en opslaan van afbeeldingen in 
ILBM formaat, sprites ontwerpen, het 
werken met bobs en animatie, een 
CAD programma met 1024 * 1024 re¬ 
solutie, het gebruiken van de speciale 
chips van de Amiga, grafische pro¬ 
grammeren vanuit C, programmering 
van Copper en Blitter en als slot een 
complete beschrijving van het grafi¬ 
sche systeem van de Amiga. Zo wor¬ 
den hier de View, ViewPort, RastPort, 
en de opbouw van de Bitmaps, 
Sereens en Windows uitgelegd. Zon¬ 
der verder te schrijven kunne wij u 
melden dat dit nummer 2 is van onze 
privé collectie! nummer een is het vol¬ 
gende boek wat we gaan bekijken. 
Het supergrafiek boek is geschreven 
door Jennrich, Trapp en Weltner en 
kost F 79,90 het is verkrijgbaar onder 
ISBN nr:90 229 3470 5 

AMIGA INTERN. 

Dit boek bevat 392 pagina’s met 
waanzinnige tekst en uitleg over van 
alles en nog wat. Veelal technische 
info over de aansluitingen en de Inter¬ 
ne Amiga. Zo worden alle poorten van 


de Amiga besproken. Ook de 68000- 
processor van Motorola (ongetwijfeld 
een van de krachtigste 16-bits micro¬ 
processoren) komt aan bod. Als u nog 
niet wist wie Agnus, Denise en Paula 
zijn dan kunt u dat in het boek lezen. 
Maar voordat die chips worden be¬ 
sproken kunt u eerst doormiddel van 
een blokschema de plaats van de cus- 
tom chips bekijken. Ook wordt er in dit 
hoofdstuk gesproken over de 8520 
CIA (de 68000 processor heeft via 
data-en adreslijnen direct toegang tot 
de beide ClA’s en de kickstartrom), 
PAL-norm, chip-ram, DMA-controller 
en nog veel meer. Voor de gebruiker 
die assembly wil gaan programmeren 
is dit boek ook vrij handig. Hier staan 
namelijk de grondbeginselen en een 
aantal voorbeelden zoals: interrupts, 
de coprocessor Copper, Playtields, 
Sprites, de Blitter, geluid, de uitlezing 
van een Muis/joystick/paddles, reset 
beveiligingen en noem maar op. Voor 
de C gebruiker is dit boek ook vrij han¬ 
dig. Wie met succes wil programme¬ 
ren zal in grote trekken het bestu- 
ringsysteem moeten kennen. Dat 
wordt in het hoofdstuk EXEC uitge¬ 
legd. In dat hoofdstuk staat bijvoor¬ 
beeld de bewerking van lijsten met 
een Exec-routine, het bewerken van 
bibliotheken, multitasking, wachten 
op signalen, boodschappen, trapin- 
structies enz enz. AMIGA INTERN 
kost ƒ 79,90 en is verkrijgbaar onder 
ISBN nr: 90229 3473 X 

Amiga DOS 

Dit zo rond de 300 pagina’s tellende 
boek is iets wat u niet kunt missen bij 
uw boekencollectie. In dit boek wor¬ 
den alle DOS-commando’s behan¬ 
deld zoals: Format, Copy, Dir, CD, 
Makedir, Ed, Type, enz. Deze com¬ 
mando’s geven u de mogelijkheid om 
schijven te formatteren, tiles te copi- 
eeren, met sub-directories werken of 
tekstfiles te lezen. Het is ook mogelijk 
vanuit de Dos met multitasking te wer¬ 
ken, bijv. Terwijl u een disk aan het for- 
materen bent kijkt u de tekst nog even 
na die u op diezelfde disk wilt weg¬ 
schrijven. Als u dit boek heeft doorge¬ 
werkt zult u verder niet zoveel proble¬ 
men met het DOS gebeuren hebben 
en er dus aardig goed mee om kunnen 
gaan, want nu heeft u teminste geen 
last meer met het aanmaken van een 
ram-disk (dat voor de meeste mensen 
het grootste probleem is), zodat u 
even een directory van een andere 
schijf kunt trekken. Het verwisselen 
van directories zal dan dus ook geen 
problemen meer opleveren. Het leuke 


van dit boek is dat het met de tijd mee¬ 
gaat, want de nieuwe commando’s 
van de Workbench 1.3 staan in het 
boek vermeld en worden tevens be¬ 
sproken. Daar komt dan wel bij dat de 
Workbench 1.3 nog niet officieel is uit¬ 
gegeven dus ’het naadje van de kous’ 
zal dit boek dan ook niet kunnen be¬ 
schrijven. Verder zit dit boek boorde¬ 
vol met handige tips en trucs die na¬ 
tuurlijk betrekking hebben op het Ami- 
gaDÓS. Dit handige boek kost ƒ 59.90 
en is te bestellen onder ISBN nr: 90 
229 3478 0 

AMIGA 3D 

Voor de 3D fanaten onder ons is dit 
boek met zijn 169 tellende dikke om¬ 
vang een echte aanrader. Wel moeten 
wij even vermelden dat u zeker niet in 
de laatste zin stevig in de ‘wiskunde 
schoenen’ moet staan. Wiskunde in 
uw vakkenpakket is dus een pré. Na 
het doornemen van dit boek weet u 
bijna alles over 3D op de Amiga. Het 
boek wordt geleverd met een 3.5 inch 
diskette met daarop de in het boek be¬ 
schreven programma’s. In het boek 
wordt de ray tracing-methode princi¬ 
pes besproken. De driedimentionale 
Bobs die met behulp van een handige 
editor kunnen worden ingevoerd zijn 
heel mooi om te zien of te gebruiken 
in uw eigen programmatuur. Met zijn 
technische informatie is dit boek zeker 
niet voor de beginner weggelegd. 
Bent u eenmaal op het Amiga pad ge¬ 
komen, zult u zeker een keer aan dit 
boek toekomen. De Amiga is immers 
een pure grafische en animatie com¬ 
puter. 

Tot slot 

Tot slot kunnen wij zeggen dat wij zelf 
heel tevreden zijn met de boeken van 
DATABECKER. Natuurlijk zijn er ook 
nog andere op de markt verkrijgbaar, 
maar vaak niet in de Nederlandse 
taal. Wij Nederlanders staan dan wel 
bekend om onze flexibiliteit wat taal 
gebruik betreft maar natuurlijk zijn er 
personen die het daar niet geheel 
mee eens zijn. En juist voor die men¬ 
sen is de gehele DATABECKER 
reeks zo aantrekkelijk. Bovendien ver¬ 
dient deze firma dat haar boeken wor¬ 
den gelezen. Wanneer we kijken naar 
de informatie die in de boeken staat 
en vergelijken wat dat voor een hoe¬ 
veelheid is mogen we niet klagen over 
de prijskaartjes die aan deze boeken 
hangen. 
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I De AmigaBasic die je bij De Amiga geleverd krijgt 
j heeft zoals De meeste basics geen fantastisch goede 
I INPUT routine. De programmeur kan er bijvoorbeeld 
i niet van op aan of je in het vak blijft waar de pro- 
I grammeur wil dat je blijft, zodat je de andere scher- 
.. minformatie niet kan verminken, je kunt zelfs nog 
I geen limiet meegeven wat betreft het aantal tekens 
en dat soort dingen. Nu is de enige oplossing om dit 
probleem te laten verdwijnen je eigen INPUT routine 
schrijven. 

Het programma bestaat uit 2 subs: één voor de wat 
I speciale instellingen, die je niet al te gauw zult ge¬ 
bruiken en dan de eigenlijke INPUT-routine. Deze 
routines heten: Manier en Invoer. 

Manier 

I Manier is de SUB die voor de eigenlijke routine IN¬ 
VOER aangeroepen moet worden, om enkele specia¬ 
le instellingen te doen. dit is gedaan om de gebruiker 
van dit programma anders moet hij bijvoorbeeld intik¬ 
ken: 2,33,34,1 ,"blablabla",34,2,1,9,0,2, en dat lijkt me 
niet zo super. Natuurlijk zitten de meest gebruikte 
I functies gewoon in het commando INVOER verwerkt. 

I het commando Manier is al volgt samengesteld: 
i Type, Beveiliging, Schoon, Return 
De opties zijn: 


Type: 

De gebruiker kan uit 5 verschillende invoersoorten 
kiezen en wel: 

0: Alle karakters/toetscombinaties toegestaan (De 
normale stand) 

1: "0123456789.-/*''()/+=" Alle rekenkundige operato¬ 
ren dus 

2: Aleen letters en leestekens 

3: "jJnNyY" dit lijkt me duidelijk 

4: "0123456789." Alleen voor numerieke INVOER 

Beveiliging: 

Het standaard Type Beveiliging, namelijk als De ge¬ 
bruiker zijn code intypt Dan verschijnt daar een 
voor. Niemand kan dus even meegenieten. [0]=Be- 
veiliging UIT en [1]=Beveiliging AAN 

Schoon: 

Als de gebruiker het gebied waar de INVOER moet 
komen staan. Schoon wil hebben is dit optie [1]0! wil 
De gebruiker dat dit niet gebeurt Dan gebruikt hij op¬ 
tie [0]0! 

Return: 

Soms wil de gebruiker dat iemand niet gelijk op RE¬ 
TURN kan drukken, als hij nog niks heeft ingevoerd. 
Dus [0]= verboden en [1]= toegestaan. 

INVOER 

INVOER is De eigenlijk routine die De INVOER be¬ 
handeld en bestuurt. Het commando is: 

INVOER [iiniet],[voorgrond],[achtergrond], [text$], 
|xpos],[ypos] 



[limiet]: het aantal tekens dat ten hoogste geaccep¬ 
teerd zal worden. 

[voorgrond]: De voorgrondkleur 

[achtergrond]: De achtergrondkleur 

[text$]: een string uitdrukking dus bv 

a$+CHR$(13)-h"Cinfo" 

[xpos]: De x-positie van de te plaatsen text 
[ypos]: De y-positie van de te plaatsen text 

Opmerking: is xpos -1, dan zai de inputroutine de 
iaatste x en y positie gebruiken van de cursor. 


’ Amiga Basic VI .2 - 80 Koloms/Commodore 
Info Nederland [RETURN] 

’ Een echte Input routine met alle moge 
lijkheden zoals [RETURN] 
’delete/backspace/cursor/limlet/bevelll 
ging/verschillende types enz. [RETURN] 

’ die beter resultaat biedt bij bijvoor 
beeld de AC/BASIC COMPILER. [RETURN] 

’ R.Sloot 01659-3686 [RETURN] 

’ *** UITLEG *** [RETURN] 

DIM SHARED cursorbeeld%(18) ’Dit moet in 
het programma staan [RETURN] 

CLS:LOCATE 2,1 :PRINT "Deze veel betere 
input-routine bestaat uit 2 Sub’s" [RETURN] 
PRINT "en u kunt de commando’s dan ook mak 
kelijk aanroepen met bv INVOER enz." [RETURN] 
FOR 1=0 TO 4000:NEXT:PRINT:PRINT "\ Over 
zicht Mogelijkheden V' [RETURN] 

PRINT" format: INVOER limiet,voorgrondkleur 
,achtergrondkleur,tekststring,x,y" [RETURN] 
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PRINT " speciale instellingen: MANIER type, 
beveiliging,schoonmaken,return" [RETURN] 
PRINT:PRINT "\ Uitleg Mogelijkheden \": 
PRINT:PRINT" (Invoer)" [RETURN] 

PRINT : stelt het aantal tekens 

voor dat geaccepteerd moet worden" [RETURN] 

PRINT 

/Achtergrondkleur: kleu 

ren van letters/letterveld" [RETURN] 

PRINT ,y : Positie van tekst 
string" [RETURN] 

PRINT " is =-1 dan wordt de string ach 
ter de laatste cursorpositie geprint" [RETURN] 
PRINT:PRINT" (Manier)" [RETURN] 

PRINT ype type 0 : alles toegestaan" 

[RETURN] 

PRINT SPACE$(9)"type 1 : 0123456789.-/*^( 

)/+=" [RETURN] 

PRINT SPACE$(9)"type 2 : alleen letters 
en leestekens" [RETURN] 

PRINT SPACE$(9)"type 3 : jJnNyY" [RETURN] 
PRINT SPACE$(9)"type 4 : 0123456789." 

[RETURN] 

PRINT ging : 0=uit 1=aan" 

[RETURN] 

PRINT hoonmaken : 0=uit 1=aan : 
wissen van tekstgedeelte" [RETURN] 

PRINT 

: 0=return niet toe 

gestaan als niks is ingevuld" [RETURN] 

PRINT SPACE$(16)": 1=gelijk op return 
drukken is toegestaan" [RETURN] 

WHILE INKEY$="" [RETURN] 

WEND [RETURN] 

CLS:invoer 10,1,2,"Testen maar! ",10,5 
[RETURN] 

COLOR 1,0:LOCATE 8,10:PRINT "U heeft in 
gevoerd: "in$ [RETURN] 

’ Na aanroep routine is de invoer opge 
slagen in in$ of in(numeriek) [RETURN] 

LOCATE 9,10:PRINT "eventuele numerieke 
waarde: "in [RETURN] 

EOR 1=0 TO 25000:NEXT [RETURN] 

END [RETURN] 

SUB Manier(g%,g1%,g2%,g3%) STATIC [RETURN] 
SHARED type%,Beveiliging%,Schoon%,Ret%, 
Speciaal% [RETURN] 

Speciaal%=1 :type%=g%:Beveiliging%=g1%: 
Schoon%=g2%:Ret%=g3% [RETURN] 

END SUB [RETURN] 

SUB invoer(limiet%,VoorGrond%,AchterGrond 
%,Text$,xpos%,ypos%) STATIC [RETURN] 
SHARED in$,Speciaal%,type%,Beveiliging%, 
Schoon%,Ret%,in [RETURN] 

’lnitialiseer variabelen/voorbereidingen 
[RETURN] 

IF xpos%=-1 THEN xpos%=POS(0):ypos%= 
CSRLIN [RETURN] 

LOCATE ypos%,xpos%:PRINT Text$;:inp$="": 
csr%=0:insert=0 [RETURN] 

COLOR VoorGrond%,AchterGrond% [RETURN] 

IE Speciaal%=0 THEN Ret%=1 :Beveiliging%= 
0:type%=0;Schoon%=1 [RETURN] 


IF Schoon%=1 THEN PRINT SPACE$(limiet%);: 
LOCATE CSRLIN,POS(0)-limiet% [RETURN] 
Speciaal%=0:COLOR VoorGrond%,AchterGrond% 
[RETURN] 

xpo=(POS(0)-1)*8:ypo=(CSRLIN-1)*8 [RETURN] 
LINE (xpo,ypo)-STEP (1,7),VoorGrond%,b 
[RETURN] 

GET (xpo,ypo)-(xpo+1 ,ypo+7),cursorbeeld% 
[RETURN] 

IE type%=0 THEN [RETURN] 
st=1 :lo%=32:hi%=255:l1%=lo:l2%=hi [RETURN] 
ESEIFtype%=1 THEN [RETURN] 
st=0:st$="0123456789-.*/^()+=" [RETURN] 
ELSEIF type%=2 THEN [RETURN] 
st=1 :lo%=32:hi%=47:l1 %=48:I2%=255 [RETURN] 
ELSEIF type%=3 THEN [RETURN] 
st=0:st$="jnJNyY" [RETURN] 

ELSEIE type%=4 THEN [RETURN] 
st=0:st$="0123456789." [RETURN] 

END IF [RETURN] 

’ Begin eigenlijke routine [RETURN] 

Tsloop: [RETURN] 
key$="" [RETURN] 

WHILE key$="" [RETURN] 
key$=INKEY$ [RETURN] 

WEND [RETURN] 

lo$=key$:po%=ASC(lo$):key$=UCASE$(key$): 
key%=ASC(key$) [RETURN] 
xpo=(POS(0)-1 )*8:ypo=(CSRLIN-1 )*8 [RETURN] 
IFkey%=13THEN [RETURN] 

IF LEN(in$)=0 AND Re' 0=0 THEN BEEP:GOTO 
Tsloop [RETURN] 

PUT (xpo,ypo),cursorbi. '.'ld%,XOR:in=VAL 
(in$) [RETURN] 

EXIT SUB [RETURN] 

ELSEIF key%=8 THEN [RETURN] 

IF csr%=0 THEN Tsloop [RETURN] 

PUT (xpo,ypo),cursorbceld%,XOR [RETURN] 
buf$=LEFT$(in$,csr%-1 ):rest$=MID$(in$, 
csr%+1 ,LEN(in$)):in$=buf$+rest$ [RETURN] 
ev=POS(0)-1 :LOCATE CSRLIN,ev:PRINT 
rest$+"[RETURN] 

LOCATE CSRLIN,ev [RETURN] 

PUT (xpo-8,ypo),cursorbeeld%,XOR [RETURN] 
csr%=csr%-1 :GOTO Tsloop [RETURN] 

ELSEIF key%=127 THEN [RETURN] 

IF csr%=limiet% THEN Tsloop [RETURN] 

PUT (xpo,ypo),cursorbeeld%,XOR [RETURN] 
buf$=LEET$(in$,csr%):rest$=MID$(in$, 
csr%+2,LEN(in$)):in$=buf$+rest$ [RETURN] 
ev=POS(0):LOCATE CSRLIN,ev:PRINT rest$ 

+""; [RETURN] 

LOCATE CSRLIN,ev [RETURN] 

PUT (xpo,ypo),cursorbeeld%,XOR [RETURN] 
GOTO Tsloop [RETURN] 

ELSEIF key%=31 THEN [RETURN] 

IF csr%=0 THEN Tsloop [RETURN] 
insert=1 :sort=-8:LOCATE CSRLIN, 

POS(0)-1 [RETURN] 
csr%=csr%-1 :GOSUB LineSetUnset: 

GOTO Tsloop [RETURN] 
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ELSEIF key%=30 THEN [RETURN] 

IF csr%=limiet% OR csr%=LEN(in$) TFIEN 
insert=0:GOTO Tsloop [RETURN] 
insert=1 :sort=8:LOCATE CSRLIN,POS(0)+1 
[RETURN] 

csr%=csr%+1 :GOSUB LineSetUnset: 

GOTO Tsloop [RETURN] 

END IF [RETURN] 

IFst=1 THEN [RETURN] 

IF (po%% OR po%hi%) AND (po%1% OR 
po%l2%) THEN Tsloop [RETURN] 

ELSEIF st=0 THEN [RETURN] 

IF INSTR(st$Jo$)=0 THEN Tsloop [RETURN] 
END IF [RETURN] 

IF csr%=llmlet% THEN Tsloop [RETURN] 
PUT (xpo,ypo),cursorbeeld%,XOR [RETURN] 
IFinsert=OTHEN [RETURN] 
in$=in$+lo$ [RETURN] 

IF Beveiliging%=1 THEN PRINT 
ELSE PRINT lo$; [RETURN] 

ELSE [RETURN] 

buf$=MID$(in$,csr%+1 ,LEN(in$)):in$= 
LEFT$(ln$.csr%) [RETURN] 
voeg$=lo$+buf$ [RETURN] 


IF LEN(in$+voeg$)limiet% THEN [RETURN] 
in$=in$+buf$ [RETURN] 

PUT (xpo,ypo),cursorbeeld%,XOR [RETURN] 
GOTO Tsloop [RETURN] 

END IF [RETURN] 

in$=in$+voeg$:ev=POS(0)+1 [RETURN] 

IF Bevelliglng%=1 THEN [RETURN] 

PRINT STRING$(LEN(voeg$),"-");:LOCATE 
CSRLIN,ev [RETURN] 

ELSEIF Beveiliging%=0 THEN [RETURN] 

PRINT voeg$;:LOCATE CSRLIN,ev [RETURN] 
END IF [RETURN] 

END IF [RETURN] 

PUT (xpo+8,ypo),cursorbeeld%,XOR [RETURN] 
csr%=csr%+1 :u=CSRLIN:o=POS(0) [RETURN] 
GOTO Tsloop [RETURN] 

LineSetUnset: [RETURN] 

PUT (xpo,ypo),cursorbeeld%,XOR [RETURN] 

PUT (xpo+sort,ypo),cursorbeeld%.XOR [RETURN] 
RETURN [RETURN] 

END SUB [RETURN] 



















